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Z2-80° and 8086 FORTH 


PC/FORTH” for IBM® Personal Computer available now! 


FORTH Application Development Systems include interpreter/compiler with virtual memory 
management, assembler, full screen editor, decompiler, demonstration programs, utilities, and 130 
page manual. Standard random access disk files used for screen storage. Extensions provided for 
access to all operating system functions. 
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Nautilus Cross-Compiler allows you to expand or modify the FORTH nucleus, recompile on a host 
computer for a different target computer, generate headerless code, and generate ROMable code with 
initialized variables. Supports forward referencing to any word or label. Produces load map, list of 
unresolved symbols, and executable image in RAM or disk file. No license fee for applications created 
with the Cross-Compiler! Prerequisite: one of the application development systems above for your host 
computer. : 

ae. Z-80 (CP/M 2.2 or MP/M), 8086/88 (CP/M-86), IBM PC (PC/DOS or CP/M-86) 

Targets: Z-80, 8080, 8086/88, IBM PC, 6502, LSI-11 


Cross-Compiler Jar gnecnost and-one target .... 0... yale ee Oe Ee. $300.00 
Bach nciclitiGn et rr ea es baleen os PRAT eR HALS pee ene eA $100.00 


FORTH Programming Aids by Curry Associates. Includes Translator, Callfinder, Decompiler, and 
Subroutine Decompiler. 40 page manual. Used with Cross-Compiler to generate minimum size target 
applications. 
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Z-80 Machine Tests Memory, disk, console, and printer tests with all source code in standard Zilog 
PPV STNRC EC rr DL Syeda Cash ny while vw ow Mee nantes $ 50.00 


All software distributed on eight inch single density soft sectored diskettes, except PC/FORTH on 5% inch soft sectored single 
sided double density diskettes. Micropolis and North Star disk formats available at $10.00 additional charge. 


Prices include shipping by UPS or first class mail within USA and Canada. Overseas orders add US$10.00 per package for air 
mail. California residents add appropriate sales tax. Purchase orders accepted at our discretion. No credit card orders. 


Laboratory Microsystems 
4147 Beethoven Street 
Los Angeles, CA 90066 
(213) 306-7412 


Z-80 is a registered trademark of Zilog, Inc. 
CP/M is a registered trademark of Digital Research, Inc. 
IBM is a registered trademark of International Business Machines Corp. 
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For Less. 


FLEXIBLE 


e Error Free 


'G) e 1 year warranty 


Ne e Hub ring installed 


BONUS PACK 





@ Write/Protect notch 
e Next day delivery 


$19.90 vox of 10 
e No minimum order quantity 
eS" ors: 
e Plus 2 Free BONUS DISKS/Box* 


*5\44" SPECIAL ONLY 


If you are a member of a user group or a school district please call for special 
terms on future offers. TSS is the largest specialty supplier of magnetic media 
in the Midwest. We have the products that you want when you need them. 
Please take advantage of this introductory offer and call us now. 
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68000 Cross Assembler 

by Allen Kossow 

DDJ #68 described a homebrew, multi-68000 development system; readers re- 
sponded with many requests for publication of the Fortran cross assembler 
mentioned in that article. The main program and subroutines will be presented 
in their entirety, beginning this month. 


The Portable Pidgin 

Z80 Macro-Assembly Implementation 

by Herbert Gintis 

Software portability often comes at the expense of size and speed. Author Gintis 
found Pidgin to be low-level, structured and portable. Here he presents his Z80 
macro-assembly implementation intended to run under CP/M. 


Simplified 68000 Mnemonics 

by W. D. Maurer 

Motorola’s powerful and versatile 68000 microprocessor offers many features to 
the experienced programmer. But how does one ever become fluent in its complex 
assembler mnemonics? As this article points out, redesigning to a simpler 
mnemonic set may be a reasonable step to take. 
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AT LAST—Multi-User and Multi-Tasking for the | 


QUNIX is the total business, 
scientific, educational, and 
graphic Operating System for the 
IBM Personal Computer. Now 
you can unleash the full power 
of the IBM Personal Computer. 
The total capability of your com- 
puter is now available for future 
growth. 


QUNIX—For the first time, the 
tremendous power of the QUNIX 
single-user single-tasking 
operating system is now 
available with MULTI-USER and 
MULTI-TASKING for up to 8 


simultaneous users and up to 250 


simultaneous tasks. 


OQUNIX—Now allows high speed 
arithmetic, high speed and high 
resolution graphics by supporting 
the 8087 coprocessor for number 
crunching. 


QUNIX—The ideal business 
Operating system designed for 
transaction and word processing 
that can be shared by up to 8 
simultaneous users. No 
additional computer required. . . 


just add keyboards and terminals 


to the basic system. 


QUNIX—Gives you acne ’ 
mini computer Data —s 
capabilities. Features such as : 
Hierarchical Files, Password — 
Protection, 16-Character File and 
Directory Names, Data 
Communications to all main- 
frame, minicomputer and micro- 
computers, File Security and 
Winchester Support are all built 
into the fabulous QUNIX 
operating system. 


OQUNIX—Arfter the frustration 
and limitations of DOS and 
CPIM™, you will LOVE QUNIX. 
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LETTERS 


Dear Gary Kildall .. . 


Dear Dr. Dobb’s, 

I found the article comparing CP/M- 
86 with MS-DOS (and CP/M-80) quite 
interesting, though I certainly agree with 
the conclusion that it is disappointing 
that Digital Research and Microsoft can’t 
come up with anything better than a 
copy of CP/M-80. In my opinion, the 
biggest item missing from all three of 
these systems is I/O redirection. 

Recently, Digital Research ran ads 
in a newspaper in this area for people to 
work on CP/M for the Motorola 68000. 
Are we in for yet another copy of CP/M- 
80? That would be rather like running a 
Ferrari engine on one cylinder. (It is grati- 
fying, however, that Digital Research has 
finally recognized that someone besides 


Intel makes microprocessors!) I would 
like to suggest to Digital Research that 
they use Microware’s OS-9'™ operating 
system (for the 6809) as a model for 
CP/M-68K (or whatever they call it), 
rather than giving us yet another copy 
of CP/M-80. 

Sincerely, 

Jim Howell 

5472 Playa Del Rey 

San Jose, CA 95123 


Micro Compiler in Brobdingnag 


Dear Marlin Ouverson, 

Enclosed is an article and program 
submitted for your review and inclusion 
in Dr. Dobb’s, if you so desire. Let me 
add that I enjoy your magazine very 
much, have all the issues from #1, and it 
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would be the last magazine I would drop. 
(I get over thirty engineering or comput- 
ing magazines. ) 

I have modified the Small-C compil- 
er to work on a 370 under VM. How’s 
that for reverse engineering? It also has 
FOR, GOTO, two-dimension arrays, etc. 

Regards, 
Chris L. Torkildson 
13791 Heywood Ct. 


Apple Valley, MN 55124 


Dear Mr. Ouverson, 

I have been using Small-C since the 
Software Works first offered it for CP/M. 
I recently got enough memory to allow it 
to compile itself correctly, and have start- 
ed implementing all the changes suggested 


(Continued on page 59) 
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Editorial 





Going Public... 


Dr. Dobb’s Journal has always championed the cause 
of public-domain software. It was accidentally founded by 
a group of idealistic hackers who only wanted to write and 
publish a tiny Basic interpreter. Their challenge was to fit 
it in about 4K; their commitment was to put it in the pub- 
lic domain. : 

This idea — doing good work and letting the public 
have it with no strings — was so good that readers who 
managed to get their hands on a copy just wouldn’t let DD/J 
finish its intended three-issue life cycle. Instead, seven 
years later it is the landmark publication for systems 
software. 

One reason for practically giving away perfectly good 
programs is to enable individuals to build a library of tools 
for their own use. In the larger sense, of course, commer- 
cial products would be greatly enhanced by drawing on 
some of the truly superb items that have been launched 
into the public domain. In fact, a number of good packages 
for sale these days may find their roots in a Dr. Dobb’s 
Journal listing, or some other non-proprietary source. 


This altruistic influence on end-user technology has, 
we think, improved the state of the art. The DDJ commu- 
nity waves the public-domain flag because we think it is im- 
portant. With this kind of material, the available computing 
power is greater than would otherwise be true. 

Many generous and sympathetic authors should be 
thanked for making DDJ’s mission successful. In addition 
to our present contributors, we remember the work of 
Dennis Allison, Steve Wozniak, Gary Kildall, Tom Pittman, 


Ron Cain, Li-Chen Wang and Ward Christensen. They are 
among the many fine people who have used DDJ to make 
important contributions to the microcomputing com- 
munity. 

Unfortunately, the creation of public-domain soft- 
ware is not as popular a pastime as it once was. Maybe, in 
the beginning, we had more of a sense of community — 
wonderful machines with unlimited potential, but with 
nothing more helpful than a row of switches on the front 
panel. And if you think today’s documentation is bad... it 
took a major team effort just to get the things operating. 

Now, software protection schemes seem to get more 
creative thought than the programs they were designed to 
protect. Instead of sharing resources, one sees even (or 
perhaps especially) inexperienced programmers becoming 
canny to any possible profit to be gained or lost. Fortu- 
nately, there is still a body of people willing to share their 
work for just the good feeling, or the prestige, or the com- 
mon cause of more public-domain software. 

In the interest of building the public domain, we en- 
courage authors not to reserve rights to programs published 
in DDJ, even though we will publish ones which reserve 
commercial rights. If the technical growth potential of com- 
puters is going to be realized, it won’t be by those large 
companies with heavy investments in current technology 
— it will be by individuals working together to push beyond 
the limits of today’s product line. When you hear one of 
us refer to the DDJ community, that’s what we mean. 


— Marlin Ouverson 
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DR. DOBB’S CLINIC 


by Dave Cortesi 











The Very Last SUBMIT Item 


For months we have been droning on 
about the SUBMIT command of CP/M, 
telling you how useful it can be and 
showing how to increase its usefulness 
with fixes and small utilities. In June we 
showed the utilities PAUSE and BEEP, 
which increase the operator’s control over 
a submitted job. In August we brought 
you Robert Pasky’s nicely-integrated set 
of patches that make SUBMIT handle 
lowercase input, control characters and 
null lines correctly. With them applied, 
you can submit command streams to ED 
and PIP for unattended execution. In 
September we presented Don Wright’s 
QUITIF program, which gives the design- 
er of a SUBMIT file the ability to check 
for some errors. 


Now, courtesy of Digital Research, 
we SUBMIT users have the ultimate in 
SUBMIT patches. The July/August issue 
of Microsystems reproduces, unedited 
and without commentary, a set of appli- 
cations notes, the work of the Technical 
Support Group at Digital Research, Inc. 
One of these is a lengthy patch which 
causes SUBMIT to append its output to 
an existing $$$.SUB file, instead of re- 
placing that file. The result is that we can 
include a SUBMIT command in a submit- 
ted job. The inner submit file will be ap- 
pended to the active submit file; when it 
completes, the outer submit file will be 
resumed with the line following the SUB- 
MIT command. 


Nested submits! And they come so 
easily, too. When SUBMIT runs, it places 
the submitted commands, one per 128- 
byte record, in reverse order in the file 
$$$.SUB. This was originally done, we 
think, for the convenience of the Con- 
sole Command Processor (CCP). The CCP 
consumes records from $$$.SUB from 
the end of the file toward the beginning. 
That lets it use the “‘record count’ byte 
of the directory entry for $$$.SUB as its 
pointer to the next record of the file. It 
couldn’t keep such a pointer in storage, 
because there is no location in storage 
that is proof against overlay by an appli- 
cation program. 


But this use of $$$.SUB makes the 
file work like a push-down stack. The 
CCP pops records off the end of the file. 
The new patch makes SUBMIT push rec- 
ords onto the end of the file, rather than 
erasing the file and building a whole new 
one. Nesting of submitted jobs follows 
automatically. 


The Digital Research patch, with our 
own comments, is shown in Listing 1 
(page 58). Assemble it, then use the I and 
R commands of DDT to overlay its hex 
file onto a copy of SUBMIT.COM (one 
with the Pasky Patches applied to it). 
The updated SUBMIT command does just 
about everything we could ask of it, so 
with this item we are turning the whole 
matter of CP/M SUBMIT over to Gene 
Head and the CP/M Exchange. 


Debugging the Debuggers 


We’ve had some letters from peo- 
ple who have problems with the Digi- 
tal Research debug utilities, DDT and 
ZSID. L. Barker sent us a note on two 
holes in ZSID. It doesn’t interpret the 
LDIR instruction correctly when the 
operands (the two strings defined by the 
HL, DE and BC registers) overlap on each 
other. The LDIR (long move) instruction 
of the Z80 copies a source string into a 
target string. When the target string over- 
laps on the source string (as when the 
source begins at O200h, the target at 
O201h, and the length is 255 bytes), 
LDIR becomes a Replicate instruction, 
duplicating the leading byte of the source 
into the target over and over. ZSID 
doesn’t handle it right, though; it stops 
after copying one byte. 

Barker also noted that the disassem- 
bler in ZSID can’t seem to handle the 
“LD A,R” and “LD R,A” instructions. 
Its List command won’t display them and 
its Assemble command won’t accept 
them. 

Gavin Brickell of Auckland, New 
Zealand, thought that he’d found a bug 
in DDT, but he hadn’t. It appeared that 
DDT was modifying a word in storage 
without any reason. However, it had a 
reason: the word in question was the top 
word of the stack as defined by the pro- 
gram under test. DDT uses one word on 
the program’s stack in at least three 
points during the execution of the Go 
command. The remarkable thing is that 
DDT manages to get by with only one 
word of the program’s stack; it seems not 
to need any more. 

Dana Trout of Goleta, CA, wrote in 
with a method for changing the number 
of the RST vector that DDT uses for 
breakpoints. One of the Digital Research 
applications notes mentioned above covy- 
ers the same area. We think that DDT’s 
use of RST 7 should be left alone if at all 
possible. DDT (and SID, and ZSID, and 
any other debugging tool) is going to use 
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some restart vector, and RST 7 is the one 
that is documented as being for this use. 
The great majority of CP/M systems will 
leave RST 7 free for debuggers. A modi- 
fied debugger, exported to another sys- 
tem, is quite likely to crash that system 
by conflicting with a legitimate interrupt 
vector. Furthermore, there’s a good rea- 
son for using RST 7 for debug break- 
points: most hardware will return FFh 
when asked to read from RAM that 
doesn’t exist. FFh is the opcode for an 
RST 7 instruction; if that is the break- 
point vector, a wild branch to non- 
existent memory will cause an automatic 
breakpoint! 

Finally, Nick Hammond of Pebble 
Beach, CA, contributed a cute trick that 
can be played with DDT. DDT could be 
useful for poking around in the innards of 
CP/M, if only it would leave things alone. 
“The problem with DDT,’ Hammond 
writes, ‘“‘is that it changes things when it 
gets control. Location 5 no longer points 
to the BDOS except via a circuitous series 
of jumps, and the CCP is missing, having 


CP/M Software 


UNERA 
Recovers all ERAsed Files for CP/M 2.2 Flop- 
py and Hard Disk Systems with standard 
directories. Also CP/M 1.4 with 8” Single 
Density Directory. Includes patching informa- 
tion for CP/M 1.4 Double Density. $75.00 
FORMS-3 
Microsoft programs for filling out forms. 
Features field editing, justification, multi- 
pages, required entry. Can also use a 
separate data file. 


SUPERFILE 

Solves your filing problems. Menu driven in- 
formation retrieval system for storing and 
quickly finding information. Features AND, 
OR and NOT in search command. Sort, 
merge and split utilities included. Build data 
base with any CP/M Editor. 

with Demo Data Base & Manual $195 
Manual only (applies to purchase) $50 


CP/MUG.DB 
Data base of catalogs and abstracts of 80+ 
disks from the CP/M users group library. Use 
with Superfile. 































Superfile and CP/MUG.DB ... 


AVAILABLE &” SINGLE DENSITY, NORTH STAR 
SINGLE AND DOUBLE DENSITY. 


ADD $1.50 SHIPPING AND HANDLING 


Slliam CAssociates 


24000 Bessemer Street 
Woodland Hilis, CA 91367 


Ga (213) 348-4278 
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Victor’s Desktop Business Computer System. 


























Businesses today face a basic sonal Computer, the Apple Ill or Or Write Victor Business 
dilemma when it comes to their competitors. Products, PO. Box 1135, 
selecting a computer. For more information, Glenview, IL 60025 
So-called “personal” computers call Victor at (800) VIC- 9000. VICTOR BUSINESS PRODUCTS 
have limited power and capacity. — 
They’re just too small to be use- T 7 Radio Shack 
ful to most businesses. Victor | Xerox TRS80 
oe MAKE & MODEL 9000 | IBMPC 820 Apple Ill Model Il 
And the larger mini computers ¥ | : 
: Processor Type | 8088 8088 Z80A | 6502 Z80A 
are more expensive. Word Length 16bits | 16bits 8 bits 8 bits 8 bits 
Victor has a solution to that Memory Size (Internal) 128-896KB 16-256KB 64KB 96-256KB 32-64KB 
j Storage Capacity on 2400KB | 640KB 160KB | 280KB 960KB 
dilem ma . _ Fcoples (5%") (5%”) (5%") (5%”") (8") 
Rua i j - CRT Display 
. VICtOn eae ss em Standard Format [ ,SOx2s | 80x25 80 x 24 80x 24 80 x 24 
puter be price sae er S>, ; Alternate Format | 132x50 | None None None | None 
Like a “personal. Graphics Resolution 800 x 400 640x200 | None 560 x 192 None 
: Communications | | 
Yet the Victor 9000 has a Built-in Serial Ports | | | 
capacity that rivals the expen- at no extra cost 2 | O 2 1 2 
j ini Built-in Parallel Ports | | 
meee VEN ETS at,no extra cost 1 | 0 Pz 0 | 1 
A close look at the chart shows eos Facies . sie | * | ; 
; ; eys on Keyboards -104 | 83 96 | 7 
doh just how the Victor 9000 Detached Keyboard mechanism | Yes Yes Yes | No Yes 
compares. Tilting Display mechanism | Yes No No | No No 
The Victor gives you the kind of Swivelling Display Yes No No | No | No | 
: Desk Area Required | | 
memory and storage capacity ihaios Gdunic'n | | | 
business applications demand. with 2 floppy disks) 310 420 470 | 361 | 500 | 
a Operating System CP/M-86* Apple | TRS | 
Much more than the IBM Per Supplied Standard MS-DOS None None DOS | DOS | 











NOTE: Chart based on manufacturer's information available as of April 4, 1982. 
*CP/M is a registered trademark of Digital Research, Inc. 
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Serving American business for 65 years. 
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been overwritten.””» Hammond supplies a 
technique for getting a copy of DDT into 
the transient area below the CCP, and get- 
ting control into it with the BDOS vec- 
tor and the CCP intact. It works like this. 

First, invoke DDT as a command, 
with its own .COM file as argument: 


A>ddt ddt.com 


DDT will start up and load DDT.COM. 
Give the Go command with no address; 
control will enter the loaded copy. It will 
relocate itself just below the first-started 
copy of DDT, clear of the CCP, put its 
own vector into the RST 7 location, and 
prompt for a command. Use the Assem- 
ble or Substitute command to put an RST 
7 instruction at location 0100h. Then use 
the GO or a control-c to do a warm start. 
The CCP will be reloaded over the first 
copy of DDT, but the second copy will 
remain. Then create and call a null com- 
mand file as a means of causing a branch 
to location 100h, where you stored a 





Pascal for CP/M.* Check the features: 


Separate compilation of external procedures * Auto-loading 

14 digit FLOATING POINT arithmetic ¢ True dynamic storage ¢ 
Verbal error messages ¢ Fast one-step compiler: no link needed 
¢ Graphing procedures « Statistic procedures ° Activity analyzer 
prints program use histogram * Advanced assembler interface 


THIS IS THE SAME SYSTEM WE SOLD FOR $295! 

So how can we make this offer?—why the unbelievable deal? 
Very simply, we think all software is overpriced. We want to build 
volume with the booming CP/M market, and our overhead is low, 


SO we're passing the savings on to you. 
AND AT NO RISK! 


RST 7: 
A>save 0 null.com 
A> null 


Control will pass to the RST 7 at location 
100, which will return control to the sec- 
ond copy of DDT. You can now use it to 
peer about the system, observing low 
storage and the CCP in their native states. 


Ask Uncle 


“T have a Diablo 1620,’ says Ernest 
Knipp of Houston, TX, “and the Courier- 
10 printwheel has a pound-sterling sym- 
bol. I can’t get this symbol to print. Is 
there any way to reach this unreachable 
character?”’ 

You betcha, Ernest. There are 96 
spokes on the Diablo printwheel. Ninety- 
four of them print in response to the 94 
printing chracters of the ASCII code. 
Two of the spokes correspond to the 
ASCII space (32h) and the DEL (7Fh) 
codes. Those two can’t be reached by 
sending the printer a single ASCII code. 


NOW—A COMPLETE CP/M PASCAL—-FOR ONLY 


Goodbye BASIC, PL/1, COBOL—hello PASCAL! Now, to make 
this most advanced language available to more micro users, 
we've cut our price—to an amazing $29.95! This astonishing price 
includes the complete JRT Pascal system on diskette and the 
comprehensive new user manual. Not a subset, it's a complete 








phone 415/566-4240 


O.K. You’ve sold me. Send me JRT Pascal by return mail. | understand 
that if I'm not completely satisfied, | can return it within 30 days—with 
the sealed diskette unopened—for a full refund. 

| need () 8” SSSD diskette. (] 5%” diskette for —) Northstar, (J Osborne, 


When it gets a space, the printer just 
advances the carriage; it doesn’t use the 
printwheel at all. And it conforms to the 
ASCII standard by ignoring DEL charac- 
ters entirely. 

However, the manual for our 1650 
printer says that the sequence ESCape, 
“Y” will print the spoke matching 32h, 
and ESCape, “Z” will print the one 
matching 7Fh. In other words, if your 
printer receives the two bytes 1Bh, 59h, 
it should print the sterling symbol. If 
it receives the bytes 1Bh, 5Ah, it should 
print a logical-not symbol. 


Assorted Grumps 


A person who would rather remain 
anonymous has told us that he had it 
from an equally anonymous, but sup- 
posedly well-informed, source that the 
code of the IBM PC’s BASIC interpreter 
was indeed produced by an 8080-to- 
8086 translator program. That’s all very 


(Continued on page 58) 





In addition, if you want to copy the diskette or manual—so long 

as it's not for resale—it’s 0.k. with us. Pass it on to your friends! 
BUT ACT TODAY—DON’T DELAY ENJOYING PASCALS 
ADVANTAGES—AT $29.95, THERE’S NO REASON TO WAIT! 
@eeeseceeeeeeseeees eoesneee1e2 eos eee e0202 0026028602800 e286 
To: JRT SYSTEMS 

1891—23rd Avenue 

San Francisco, CA 94122 


ASONL 








(1) Apple-CP/M, (] Heath, (J Superbrain. 








When you receive JRT Pascal, look it over, check it out. 
We invite you to compare it with other systems costing ten times 
as much. If you’re not completely satisfied, return the system—with 
the sealed diskette unopened—within 30 days and your money will 
be refunded in full! THAT’S RIGHT— COMPLETE SATISFACTION 
GUARANTEED OR YOUR MONEY BACK! 








Name eis Ceres eel ee Le? ga Ter aa Ny 
| a Eee eeteenere | Zip ee" a 
(1) Check 1} C.0.D. (] Mastercharge [LJ VISA 

(CA residents add sales tax. Add $6 for shipping outside North America.) 

Card #_ ere 2 cee Es ‘, tite 
Signature 








*CP/M is a Digital Reserach TM. A 56K CP/M system is required. 
eeeeece@oaoseoaeeeesee0e0820002060200820000008000080800808080808868 


erent iaiemmennenirnmemaeeentiaaninbanetiatitaremiememeema rrr iar neem inerrant nrtaraern mmm eamaaseammmmemnaimasaamcaemmmmmmmmaaaaaaal 
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COMPUVIEW’S CP/M-86 GIVES YOU WHAT IBM CANT 


increased 
Productivity 


Improve your productivity with built-in 
horizontal scrolling (254 columns) and 
screen line editing. This lets you exten- 
sively edit or re-enter any command line 
on the screen and greatly reduces the 
amount of re-typing necessary due to 
mis-typed or repeated commands. Its 
almost like having a built-in full screen 
editor for every program you use. And 
with 25% more disk capacity you will be 
swapping disks a lot less. 


We Don’t Lock You In 


Read and write not only IBM CP/M-86 
disks, but also IBM MSDOS and other 
CP/M double density disks. Transfer files 
with other CP/M and CP/M-86 com- 
puters via the serial port. The screen 
driver with status line emulates many 
popular terminals. And of course we're 
software compatible with IBM. 


Winchester Disk 
Support 

Special versions available to support the 
TECMAR, DeVong, Corvus and other 
hard disks. Or have a quad density 96 tpi 
double sided floppy as drive B(or CandD 
externally) with 782K capacity. 


No Software Shortage 
Most CBASIC programs run perfectly 
with our CP/M-86 and CBASIC-86. Even 
most programs compiled with CBASIC 
8080 will run with CBASIC-86. And 


Compare CompuView with IBM CP/M-86 


Feature 

lm (o)arXo)a\r-) Perel ce)|iiave| 

Screen Line Editing 

Page Control 

Emulate Popular Terminals 
‘Smart’ CRT Functions 
Read/Write IBMMSDOS Disks 
Serial File Transfer 

Support Non-IBM Hardware 
Menu Driven Configuration 

a ceoye)c-lanleat-lo)(-a mela veit(olanaCa'h) 
Status Line 

Serial and Parallel Printers 

File Capacity 


CP/M-86forIBMPC ....... $285 
Quad Density Drive Version .$350 
Winchester Disk Version . . . .425 
ManualOnly .............. $20 


VEDIT-86 with above purchase. 
This version of VEDIT has horizon- 
tal scrolling (254 columns) . .9125 


Tandon double sided 80 track 
drive gives 782K file capacity. Fits 
into IBM PC as drive B, or connect 
two externally. CompuView 
CP/M-86 required. ........ $450 


Compuview 





More Storage 


Lower Cost 
Than IBM 
IBM Double Sided 


40 Track Drive 
IBM CP/M-86 


Be) =] (67-40) 0G (ner) oy-lel 141) meee 


i Flare (o)am Bie) 0|0) (sire) (e (=e) 
310M Brale.@ Bains 
CompuView CP/M-86 


Bo} ¢ 1 Le %4 Gil (-ner-] 9y-\el|4') ee 


Pascal-MT is available too. 


V-COM DISASSEMBLER 
Labels, ASCII, Exceptional Speed 


No other Z80 CP/M disassembler produces understandable 
source code as quickly as V-COM. It is INTEL and ZILOG 
compatible, and features easy to read code with a cross refer- 
ence table. Best of all, it can create source code with user 
defined labels, storage areas and ASCII strings. V-COM is ex- 
ceptionally fast and can disassemble a typical 12K .COM file 
intoa 76K.ASM file, containing 7500 lines of source code, and 
a 33K cross reference file in under two minutes with 8” SD 
floppies. (About five times faster than others). 


You can create two auxiliary files to easily specify labels for 8 
and 16 bit values and the location of storage areas, tables and 
ASCII strings. The disassembled code can be sent to the 
console, the disk and the printer, or any combination at once. 


Each package includes a 30 page manual, sample program 
files and variations of V-COM compatible with TDL, MAC and 





ZILOG assemblers. Feature for feature, no other 
disassembler atany price evencomesclose............ $80 
Manual only..3 5.5 os die Fe cee eee Cee ete in me nae 312 


8086 SOFTWARE 


NEW Terminal and File Transfer program for IBM PC, 
Displaywriter and other CP/M-86 and MSDOS systems. 
CIE CEI oo a eg oe a ek ae Soe mee $70 


VEDIT full screen editor for CP/M-86, MSDOS, IBM Personal 
ComputerandIBMDisplaywriter. .................. 3195 


CP/M-86 BIOS for popular S-100 disk controllers and SCP 
S0SG computer, Source Code. 223.5. .6eo Tee. $90 


Bootable CP/M-86 disks for popularS-100 computers . .Call 
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powerful TECO commands and macros. 


Sophisticated program development editing 
= with useful word processing features and 
C 


CUSTOMIZABLE 
FULL SCREEN EDITOR 





Performance 


Fast and easy ‘What you see is what you get’ full screen editing of files up to one disk in length. Completely replaces ED and 
reduces your editing time by 90%. Includes search and replace, text move and copy, complete file handling and printing. 

Insert a specified line range of another file anywhere in the text, and even change disks while editing. Unique automatic 
indenting for use with Pascal, PL/I, ‘C’and others. For assembly language, VEDIT can change lower case letters typed in the 
label, opcode.and operand fields to upper case, and leave the comments unchanged. VEDIT’s small 13K size allows up to 
45K of a large file to be memory resident. Even if you already have a good word processor, VEDIT’s program development 
features, powerful command structure, and exceptional speed will greatly increase your productivity. 


User Oriented 

Fully adapts to your hardware and applications with a menu driven customization for keyboard layout, CRT selection, any 
screen size, tab positions, default editing parameters and more. Includes a status line with the cursor’s line and column 
positions, an ‘Undo’ key and recovery from full disk conditions (you can delete files or change disks). VEDIT is significantly 
enhanced twice a year and you can opt for our popular and inexpensive update option. And we offer direct technical support 
you can count on, including custom patches for new CRT terminals. 


Text Buffers, Macros 

Ten buffers can hold text, macro commands or complete files. These may be edited, loaded and saved on disk. Macros 
perform repeated or complex editing operations. (Perform 40 search/replace on 20 files automatically, for example.) Buffers 
allow extensive ‘cut and paste’, including portions from multiple files. Buffers can be preloaded at startup. 


Word Processing 
Includes word wrap, adjustable margins, reformatting of paragraphs, word and paragraph functions, and printing with 
imbedded printer control characters. May be used stand-alone or in conjunction with most text output processors. 


Hardware Support 


CRT version supports over 40 terminals including the VT-100. Utilizes ‘smart’ terminal capabilities for fast screen updating. 
Your keyboard layout can use any function and cursor keys. Memory mapped version offers high speed, flexibility and supports 
bank select (SSM VB3). Startup command file can initialize programmable function keys, VEDIT parameters, and more. 


Ordering 


Please specify your microcomputer, video board or the 


CRT terminal version, 8080, Z80 or 8086 code and disk Xerox 820 @ Apple Il Softcard @ TRS-80 Il and!| 
format. Solxstesieliam WAlNisWAccm MD A@MYAMEsOM MME--\ute(-v0 
Colatatir-lam M@icclsn(anqem Malito-m Micaela Mi\ece) sve) i) 
VEDIT - Disk and Manual Mee BO Saeco MUiaeieciom Mite) BOs) 
RreP/MB6orMEDOS 2. LLLS98 IBM Personal Computer and IBM Displaywriter 
PEUIOTUG cou so bles eed deen dttmaes 94 eee e 718 





VISA and MASTERCARD 


CP/M, CP/M-86 and MP/M are registered trademarks of Digital Research. Inc. Apple Il is a registered trademark ot 1955 Pauline Blvd. 1 

Apple Computer, Inc. SoftCard is a trademark of Microsoft. Inc. TRS-80 is a trademark of Tandy Corp. IBM Personal . d., Suite 200 

Computer and Displaywriter are trademarks of International Business Machines, Inc. Ann Arbor, Michigan 48103 
(313) 996-1299 


ompuView 


PRODUCTS, INC. 
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68000 Cross Assembler 








he June 1982 issue of DDJ contained a brief description 
of the computer system which is being developed by my- 
self, Darryl Uchitil, and Jim Hannas as a test bed for sys- 
tem software and hardware using the Motorola 68000 micro- 
processor. The reader response to both DDJ and myself as a 
result of that article has been interesting and informative to 
Jim, Darryl and myself, and I would like to thank all of you 
who have called or written me since June. I will present at the 
end of this article a summary of answers to some of the most 
frequently asked questions about our system for the benefit of 
those who have not tried to contact me or who have written 
but have not yet received my reply. 





T 


Cross- Assembler Description 


This article will describe the cross assembler that was 
mentioned in the June 1982 issue of DDJ. It was developed 
because we needed a way to write small programs for execu- 
tion on a single 68000 processor to test the hardware and to 





by Al Kossow 





Allen Kossow, Medical College of Wisconsin, Department of 
Physiology, 8701 Watertown Plank Road, Milwaukee, WI 
53220. 


THE FORTH SOURCE™ 


Exclusively FORTH! Mountain View Press 
has the greatest selection of FORTH books, 
manuals, and disk programs available. From 
TRS8O and APPLE to PDP-11 and NOVA 
this is your FORTH source. Over 50 FORTH 
products are currently in stock and more are 
being added each week. Contact the FORTH 
source — Mountain View Press — for the 
latest in FORTH materials. 


MOUNTAIN VIEW PRESS 
PO Box 4656 
Mountain View, CA 94040 
(415) 961-4103 
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test the interface between the 68000 processors and the I/O 
bus control processor. The cross assembler for the 68000 has 
been run on two different PDP-11 systems, one running 
RT-11, and one running RSX-11M. It has also been run ona 
VAX/VMS system under the applications migration executive. 
It should be possible to adapt the assembler to other machines 
by recoding assembly -language subroutines for 32-bit arithme- 
tic and modifying the routines that reference octal constants, 
but as of this writing, no attempt has been made to do so. 

The cross assembler consists of a main program and a col- 
lection of subroutines, each performing part of the assembly 
process. The cross assembler is a two-pass assembler; the 
source code is read twice by the program. The first pass 
through the source code picks up all of the labels, and the 
second pass generates the listing and object files. All opera- 
tions to files are handled by individual subroutines. These 
subroutines are SOURCE, LIST, and OBJECT. All machine- 
dependent routines for opening and closing of files are located 
in these routines. 

Each of the three routines for the source, listing and ob- 
ject files is called when the program is first started, to deter- 
mine where each is to be sent. Some checking is done to deter- 
mine if just a carriage-return was typed, so that there is a de- 
fault of only a listing to the terminal and no object file is es- 
tablished. Once the source for the assembler and the destina- 
tions of the listing and object are established, the assembler 
starts the assembly by setting the pass number to one and calls 
the subroutine PARSE. 

PARSE scans the input line and determines if the state- 
ment is just a comment. If it is not a comment, it splits apart 
the label, opcode and operand fields of the statement, and re- 
turns pointers to these fields to be used by the statement eval- 
uation routines. 

After the line is parsed, the statement opcode is evaluated 
by the subroutine PRCESS. PRCESS calls DECOPC, which 
takes the characters pointed to by the opcode pointer from 
PARSE and attempts to find an opcode that matches. If an 
opcode is found, the values of one or more skeletal opcodes 
(opcodes without effective addresses or sizes) are returned. 

After evaluating the opcode, the operands are evaluated 
to determine their general type. All “‘simple’’ operands, such as 
registers, are evaluated immediately, while ‘“‘complex’’ oper- 
ands (i.e., operands containing labels) are not evaluated. 

If a valid opcode skeleton was returned, there will be a 
number returned by DECOPC which represents a general way 
in which to evaluate this type of operation. This number is 
used by PRCESS in a multi-way branch to different sections 
of code for evaluation of the opcode. Once in the specific sec- 
tion of code for the opcode, the operands are checked for 
validity in the opcode, and if the operand was ‘‘complex”’ it is 
evaluated and a value is returned. 

Each specific section of code for an opcode builds up the 
opcode skeleton, filling in the size and effective address fields 
as necessary for that type of instruction. The result of this 
evaluation is an array of 16-bit values which represent the re- 
sult of that line of the assembly, and a count of the number of 
words generated by that line. 

At the end of the opcode processing routine is the section 
of code that handles labels. If a label was detected and is valid 
for the opcode type, the current value of the location counter 
is placed in the symbol table entry for that label. 
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If this is the second pass, the object and listing is generat- 
ed based on the values in the instruction word array; other- 
wise, the next line is fetched and the evaluation process is re- 
peated. After the last line of the program is read, the input file 
is closed, and a routine is called to print the contents of the 
symbol table. 


Frequently Asked Questions About 
The Multi-68000 System 


Q: Can I get a copy of your assembler? 

A: If you don’t feel like typing in the source code in this arti- 
cle, I can send you the source as it appears here on an 8”’ 
single-sided, single-density floppy disk in either CP/M or 
RT-11 format for $25 on an as-is, no-support basis. I 
can provide the source on a CP/M disk, but I have no way 
to compile it or test it there. 


What is CLICS? Where can I get it? 


CLICS is a collection of subroutines for 2-D graphics 
developed by Mike Garrett while he was with the Depart- 
ment of Defense. Since the time I wrote the article, I 
have heard that Mike left DOD and started a company sell- 
ing graphics software written in C. I have not been able to 
reach him to determine if this is true or not. The CLICS 
software I have been working with came off of the 1980 
Spring DECUS RSX-11 special interest group symposium 
tape. This tape is available from the DECUS library. 


2 © 


Q: When/ where can I buy one of your systems? 


A: The notion of selling this system has been discussed a 
number of times between the three of us, but we just 
don’t want to get into the computer business. The 
schematics and blank PC boards will probably be available 
from us on an as-is, no-support basis, along with the 
software we develop, but we have no plans to sell or sup- 
port systems. 


Why didn’t you build your system on a “*X YZ” bus? 

I had expected much more flack about using the PUNI- 
BUS than I actually received. The primary reason for not 
using a commercial bus was the desire to build a system 
which had a few large (8”’ by 15’’) cards to minimize the 
number of cards to build. We also probably would not 
have used a special bus if we had planned on selling the 
system once we finished it. 


2 


In closing, I would like to thank all of you that have taken 
the time to call or write me about our project, and will 


promise to keep you informed of our progress in future issues 
of DDJ. 


BD, 


(Listing begins on page 14) 


Reader Ballot 
Vote for your favorite feature/article in each issue. 
Circle Reader Service No. 520 
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We Speak 


software systems 


Your Language... 


AZTEC C Il 
An Outstanding C Compiler 
with full floating point. 





Manx® Software Systems provides pro- 
fessional quality C Compilers that are 
used to implement language processors, 
business, scientific, statistical, word 
processing and general utility 
applications. 


A fuil feature professional C Compiler 
for CP/M, Zenith HDOS and Apple 
(DOS or CP/M) 


Static double pi = 3.1415926535898; 
C = 2.0+pi-r; 


Manx has an outstanding selection of 
UNIX compatible C Compilers. 


¢ Aztec C Il CP/M $199 
¢ Aztec C Il CP/M for the Apple $199 


(requires Z-80 card, language card and lower case) 


¢ Aztec C ][ for Apple DOS $199 
¢ Aztec C Il for Zenith HDOS $199 
¢ Aztec C for CP/M or HDOS $145 
° * C86 for CP/M-86 $249 
¢ * C86 for IBM PC DOS (MSDOS) $249 


(* by Computer Innovations) 


Order today for prompt delivery 


MANX 


software systems 


Box 55, Shrewsbury, N.J. 07701 
(201) 780-4004 


Mastercard and Visa accepted 
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HAZELWOOD COMPUTER SYSTEMS 


907 E. Terra Lane, O’Fallon, MO 63366 (314) 281-1055 


256K DYNAMIC MEMORY 


The DM-256 is a256K dynamic memory 
for S-50C and S-64 systems. Based on 
the same design as the field proven. 
DM-64, it utilizes the latest advances in 
memory technology to bring new econ- 


omy in memories for larger systems. 


e Greater than 2 MHz operation 
e Fully transparent refresh 

e 24 bit addressing 

e Vertical or horizontal access 


Order: DM-256 Price: $1595 


64K DYNAMIC MEMORY 


The DM-64 is a 64K dynamic memory 
capable of fully transparent operation 
at bus speeds greater than 2 MHz. This 
provenmemory design offers the econ- 
omy of dynamic memory with the reli- 
ability of static memory 


e Greater than 2 MHz operation 
e Fully transparent refresh 

e 20 bit addressing 

e 4K segment disable 


Order: DM-64 Price: $495 





DMA FLOPPY DISK 
CONTROLLER 


The DD-5/8 is a double side, double 
density DMA disk controller for 5 and 
8 inch floppy disk drives. 


e WD 1797 controller 

e DMA operation at 2 MHz 

e Controls 8 drives 

e Fully automatic motor control 
e Independent 5 and 8 sections 
e Abitration for multiple DMA 

e 24 bit addressing 

e Drive ready interupt 


Order: DD-5 (5 inch) 
DD-8 (8 inch) 
DD-5/8 (both) 


Price: $395 
$395 
$450 

















HELIX |” MAINFRAME 


The HM-64 is the mainframe of the 
HELIX computer system. It offers the 
S-64 bus, a compatible superset of the 
S-50C bus. Its ferro-resonant power 
transformer provides protection from 
power line voltage variations and noise. 
The attractive and functional cabinet 
includes space and power for 2 5-inch 
disk drives. 


e 10 main bus slots (64 pin) 
e 14 1/0 bus slots (30 pin) 
e S-50C compatible 

e 2 MHz operation 

® integral serial ports (2) 

e integral parallel ports (2) 
e 16, 20, or 24 bit 1/0 decoding 
e Modular adaptable I/O panel 

e Faraday shielded bus lines 

e 35 Amp power supply 

e Board access without extender 
e Structurally solid 


Order: HM-64 Price: $1250 
Options: Rack mount, blank panel, 
230 V 50 Hz 


6809 PROCESSOR 


The CP-O9 utilizes a 2MHz processor 
and supporting logic to offer the most 
advanced 6809 processor board avail- 
able for the S-50C bus. 


e 2 MHz operation 

e 6 ROM positions (2 sets of 3) 

e Software selection of ROMs 

e Battery backup clock/calendar 
e Programmable timer 

e 1K RAM 

e Compatible DAT REGISTERS 
e Hardware breakpoint 

e Console connector 


Order: CP-09 Price: $450 





I/O CONTROLLERS 


VC-256 256x256 


B/W Graphics $350 


SC-2 2 Port Sync/Async 
Comm 
BC-4 4 Port Buffered Async 


$295 
$395 















68000 PROCESSOR 


The CP-68K employs an 8 MHz 68000 
processor to bring 32 bit performance 
to the S-50C bus. When used with the 
S-64 bus and appropriate memory, full 
16 bit data transfers are possible. 


e 8 MHz processor 

e 24 bit addressing 

e 8/16 bit data transfers 

e 4K ROM and 2K RAM 

e Integral ‘Base-Bound’ MMU 


Order: CP-68K Price: $995 


PACKAGED SYSTEMS 


The following HELIX systems are avail- 
able at special package prices: 


64K 6809 HELIX 
256K 6809 HELIX 
912K 6809 HELIX 


64K 68000 HELIX 
256K 68000 HELIX 
512K 68000 HELIX 


5 inch floppy disk subsystems: 
(includes cable and controller) 


$1995 
$2995 
$4450 


$2595 
$3695 
$4995 


40 track single side 
40 track double side 
80 track double side 





SOFTWARE 
HLXBUG 6809 Monitor ROM $50 


(includes FLEX drivers) 


OS-9 Level One 
OS-9 Level Two 


$200 
$500 


All items available stock to 30 days and 
are shipped assembled, tested, and 
burned in. 


Hazelwood Computer Systems re- 
serves the right to change prices and/ 
or specifications without prior notice. 


Available at authorized HELIX dealers 


HELIX is a trademark of Hazelwood Computer Systems 
FLEX is a trademark of Technical Systems Consultants 
OS-9 is a trademark of Microware 


Dealer inquiries invited. We support our dealers. 


Circle no. 273 on reader service card. 
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The Portable Pidgin 


Z80 Macro-Assembly Implementation 





hen in doubt, write in a machine- 

independent language. Anyone 

who has seen a cherished program 
lie fallow for lack of portability will 
recognize the wisdom of this maxim. Yet 
machine-independent languages are nor- 
mally high-level affairs ill-suited for sup- 
porting the compact code and rapid exe- 
cution times required of many systems 
programs. Whence my excitement upon 
learning of William Gale’s Pidgin, a low- 
level, structured, portable programming 
language (DDJ #57). I suspect that Dr. 
Gale’s compiler generator Meta4 (DDJ 
#58) is only the first of many powerful 
systems programs that will be written in 
the flexible format of Pidgin. 








by Herbert Gintis 


Dr. Herbert Gintis, Dept. of Economics, 
Harvard University, Cambridge, MA 
02138. 
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Pidgin is portable because it was de- 
signed to be supported by a portable 
compiler. Indeed, Dr. Gale has provided 
us with Tincmp, a Pidgin compiler written 
in Pidgin itself, yet organized to facilitate 
its relatively easy implementation on any 
machine. But only relatively! What I shall 
suggest here is that Tincmp can be imple- 
mented with little difficulty on any ma- 
chine for which a reasonably powerful 
macro-assembler exists. The example pre- 
sented here uses a Z80 microprocessor run- 
ning under CP/M, and the macroprocessor 
is Venus, a structured editor-assembler- 
linker-symbolic debugger which I’ve de- 
veloped over the past year. 


The strategy for implementing 
Tincmp is straightforward: generate an 
assembly -language version of the compil- 
er by translating each and every Pidgin 
statement into a macro. 


The result of this exercise is a new 
Tincmp source file which I have called 


IBM 


PERSONAL COMPUTER SOFTWARE 





C88 SOFTWARE DEVELOPMENT PACKAGE — $250 


The C88 Software Development Package includes the C88 Compiler, the L88 Linkage Editor, and 
extensive library of useful routines and functions. Some of the features of the package are: 


e Compiles an extensive subset of the 
C language 

e Allows linkage of separately compiled 
modules 


e Extremely fast compilation 
e Library includes numerous useful routines. 


DMS DATA MANAGEMENT SYSTEM — $150 


The DMS Data Management System is a package which allows simple and quick development of 
user data entry Forms, and allows retrieval, modification, and reporting of Data Bases using these 


Forms. Some of the features of DMS are: 


e User defined screen formats 
e® Human engineered user interface 


e Efficient B-Tree key index searching 
e Data files readable by BASIC, PASCAL 


and C88 programs. 


PCTEXT TEXT FORMAT PROCESSOR — $100 


The PCTEXT text processor allows easy production of well formulated documents, while allowing 
use of any text editor or word processor to prepare the text. Some of the features of PCTEXT are: 


e Indentation and centering 


e Line spacing and margin control 


e Headings, footings and pagination control © Allows imbedding of one document in another 


To order direct, enclose your check or money order. New York State residents add applicable local 
sales tax. Shipped prepaid within the United States. 


Also Available 
e “Window” full screen text editor and “Datacomm” data communications program 


Write Department DD for detailed information on any of the above. 


1.1. 


INTELLECT ASSOCIATES INC. P.0. BOX 365 
MICROCOMPUTER SPECIALISTS 


HOLBROOK, NY 11741 


Circle no. 226 on reader service card. 
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Tinsource, shown in Listing 2, and a 
source file of macros called Tinmacro, 
shown in Listing 1. I.shall discuss these 
two source files in turn. 


Since Venus uses standard assembly- 
language pseudo-ops (e.g., CP/M’s ASM.- 
COM), Tinsource should be easy to 
understand, subject to the following 
notes. First, Venus uses the pseudo-op 
INCBG <filename.filetype > to instruct 
the assembler to include the specified file 
at the beginning of the source code be- 
fore assembly. In this case, Tinmacro will 
be so included. Second, a string of one to 
five alphanumerics beginning with a 
letter, occurring where Venus expects a 
mnemonic opcode or pseudo-op, and fol- 
lowed by an exclamation point (!), is 
treated as a macro call. 


The meaning of the macros is either 
the same as that of the corresponding 
Pidgin statement, is indicated in the re- 
marks, or can be inferred by comparing 
Tinsource with Tincmp. I have attempted 
to use obvious mnemonics where possi- 
ble. Thus “‘B” stands for “‘byte’’, “‘I’’ for 
‘int’, ““E” for ‘‘set equal to’, “‘O” for 
‘or’, “A” for “‘and’’, ““EE” for “is equal 
to’, “‘LE” for “‘is less than or equal to’’, 
and so forth. 


Since Venus is a structured assem- 
bler, I in fact implemented the control 
statements WHILE-ON-ENDWHILE and 
IF-ELSE-ENDIF _ directly. However, 
since structured facilities are rare in 
assemblers, I have rewritten Tinsource by 
treating these control statements as pro- 
gram labels. Thus a WHILE becomes the 
string “WH” followed by a number, and 
ENDWHILE becomes ‘“‘NDWH” followed 
by a number. The ON in the WHILE- 
ENDWHILE construction is translated 
into the macro IFNOT, which moves be- 
yond the ENDWHILE if the condition 
tested is false. The IF-ELSE-ENDIF is 
similarly treated, using the common be- 
ginning string IF followed by a number. 
The CHOOSE ON-CASE construction is 
directly implemented as a macro. 


Tinmacro, given in Listing 1 is also 
by and large self-explanatory. The macro- 
processor of Venus is fairly standard. 
The name of the macro is written in 
the label column followed by the pseudo- 
op MACRO, followed in turn by a list of 
the prototype variables separated by 
commas. A proto-type variable is pre- 
ceded by the ampersand (&). The period 
(.) is a non-printed string terminator. 


2a 





Thus if the macroprocessor encounters 
the line 


LD HL, (1.&DEST) 


and the current value of &DEST is GG, 
the line will be expanded as 


LD HL, (IGG) 


Tinmacro is organized according to 
the principle that each byte variable in 
the object code generated (which is in 
this case an assembly source file) is pre- 
ceded by the string BB, and each integer 
variable is preceded by the single letter I. 
By comparing the listing of Tinmacro 
with the 8080A macros suggested by 
Andrew Bender (DDJ #65 — March 
1982), the reader will notice that I have 
streamlined some of the coding, using the 
fact that the Z80 accumulator can be 
loaded without altering the flag condi- 
tions. 


To implement Tincmp for your ma- 
chine, alter Tinmacro and Tinsource to 


meet the conventions of your assembler. | 








LOSING TRACK OF CHANGES? 

“NOW! COMPARE files on CPM-80!”’ 
* Compare Documents 
¢ Extensive User Options: Ignore 

Comments, Blank lines and more 
- Create Documents with Change Bars 
¢ Sensible Command Line defaults 
COMPARE is a superb software tool with excellent features for the 
serious professional programmer with no time to waste. Document 
mode with Change Bars designed especially with Writers in mind. 
Call or Write for Information..... 


SOLUTION TECHNOLOGY, INC. 
Suite 218 » 1499 Palmetto Park Rd. * Boca Raton, FL 33432 - (305) 368-6228 


“CPM-80 is a trademark of Digital Research Inc. *Check or COD, Florida residents add 5% sales tax. 


* Compare Program Versions 

« Fast, NO File Restrictions 

¢ Side by Side or Vertical 
Listings of Differences 

¢ Output to File or Printer 
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If you do not have a pseudo-op like 
INCBG, then Tinmacro will have to be 
merged directly with Tinsource, an easy 
task on a text editor. If you do not have 
a macroprocessor, you are probably out 
of luck, since the full source code of 
Tinsource with all macros expanded 
would probably run some 4000 lines. 


When Tinsource assembles without 
errors, then you must implement the 
Tincmp macros, following the example of 
Bender’s, perhaps with the streamlining 
suggested in Listing 1. Note that Bender’s 
implementation of the structured control 
statements uses multiple ORG’s, which 
are disliked by some relocating assem- 
blers. Venus does. not mind such multiple 
ORG’s, but there is an easy alternative 
strategy which I have successfully tested 
anyway. 


The problem arises with the CHOOSE 
ON $$ and CASE $$ statements in 
Pidgin. Unlike the C language, Pidgin does 
not allow a program to “fall through”’ to 


a 















Only $95 


Circle no. 299 on reader service card. 


26 


the next CASE upon the execution of 
one CASE, but rather demands exiting 
the control structure. Thus in generating 
the assembly source code for the CASE 
$$ statement, the first line must be a 
jump over any remaining CASE $$ state- 
ments. However, this jump must be sup- 
pressed in the first such statement after 
the CHOOSE ON $$. The strategy for 
handling this is to have the CHOOSE ON 
$$ place a comment symbol (;) on the 
top of the stack, and have each CASE $$ 
immediately place the top of the stack in 
the destination file, and replace it with a 
blank (_), which will be ignored by the as- 
sembler. The relevant Tincmp macros will 
then be: 


:CHOOSE ON $$; 

LD A, (BBTPICTP2C) ; 

LD HL,ERASER; 

LD (HL), ATUOSTL@;STUIS; 
:CASE $$; 

TIOPTIOPT!8P; 

tP9CJP NDCHTPON; 

CStP8N LD A, (BBTPICTP2C) ; 
CP (HL) ; | 

JP NZ,CSTUISTS8NTL@ ST POS; 


The final step in implementing 
Tincmp involves developing the system 
utilities, including the algebraic routines 
ICOMP, ISUB, CDEHL, IMUL, and IDIV, 
as well as the CP/M input-output rou- 
tines START, BREAD, BWRITE, PRT, 
IOPEN, MSG, CONOUT, and BCLOSE. 
The requirements for the algebraic rou- 
tines are well-described in Bender’s excel- 
lent articlee CONOUT is essentially 
CP/M’s Direct Consol I/O (Function 6), 
but preserving all registers. PRT uses 
CONOUT to output the string pointed to 
by the HL register; the string must termi- 
nate with a carriage return (Odh in 
ASCII). MSG is the same as PRT, except 
that precisely 9 characters are transmit- 
ted. The I/O routines must be written 
using the system utilities associated with 
your assembler. Their functions, will be 
obvious from the places in Listing 1 
where they are used, after a careful read- 
ing of the discussion of these routines in 
Bender’s article. 


DB, 
(Listing begins at right) 
Reader Ballot 
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CONSULT YOUR 
LOCAL tiny-c DEALER 


CONSULT YOUR 
LOCAL tiny-c DEALER 


Eastern House Software 

3239 Linda Drive 
Winston-Salem, NC 27106 
919-924-2889 

(tiny-c ONE Manuals and PET 
disks only) 


Cornerstone Software 

P.O. Box 5151 

San Jose, CA 95150 
800-538-3160 or 408-996-8560 


Software Distributors 
9929 W. Jefferson Blvd. 
Culver City, CA 90026 
213-204-6620 


Magnolia Microsystems 
2264 15th Avenue W. 
Seattle, WA 98119 
206-285-7266 
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a = CA ha a aa VANDATA 

916-895-8751 tiny-c is a structured programming language designed to ee eee yeenee 
(tiny-c ONE Manuals and SYM allow you to focus attention on the problems you want to a oe estes 
eee nie solve — rather than the language you're using to solveit. With 306-542-7611 

Lifeboat Associates tiny-c you can expand your horizons far beyond the limits of 

1651 3rd Avenue BASIC. tiny-c ONE (interpreter), $100 - includes Owner's Manual 

eee, es plus wide choice of media, source code. It's still the best struc- 


tured programming trainer. Tiny-c TWO (compiler), $250 - 
includes Owner's Manual, CP/M® disk, source code. This 
version puts UNIX® pleasure into your CP/M. : 


tiny- c associates 
ox 269, Holmdel, New Jersey 07733 (201) 671-2296 


You'll quickly discover tiny-c is naturally | 
_ right for your language needs. 
New Jersey residents include 5% gales iax. Visa or Mosier 
as accepted. Include charge plate number with order 
© CP/M isa trademark of Digital Research, Inc. 
ore of Bell Labs, Inc. 
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Circle no. 72 on reader service card. 


BASIC/Z.... 


the ultimate CP/M’ compiler! 


¢ Generates native code. (8080/Z-80) for ¢ Dimension arrays dynamically (to an 
fast execution expression) and selectively erase 








¢ Sort verb is unmatched by stand-alones. ¢ Screen oriented editing of console input 
2000 elements in two seconds! at run-time (cursor left/right/start/end, 
delete left/right/line, insert/change 
e Alpha-numeric labels, variable and mode, and input masking available) 


function names of any length 


¢ Push/pop subroutine stack 
¢ Chain program segments which share 


variables declared common e Trace and single-step debugging 


e Five data types - binary/BCD/string e Multi-tiered error trapping even handles 


. BDOS errors 
e BCD floating point math - never a 


“round-off” error - precision is program ¢ Cursor addressing, reverse and blinking 
definable from 6-18 digits video, erase and more are supported 
from source code level, with virtual 
¢ Full function program editor tests syntax hardware independence 
as you type 


e An extended library of over 200 
¢ Kecursive, multi-line, multi-argument “key-word” functions 
user defined functions 


For free brochure System/z, inc. 


and mini-manual: PO. Box 1] 
Richton Park, IL 60471 


System/z, inc. mmmmsninisiomnns 
9 @ 
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Simplified 68000 Mnemonics 





f the 68000 is to become the most 

important new computer of the next 

five years, there will necessarily be a 
tremendous amount of interest in its as- 
sembly language. The profusion of fea- 
tures and facilities on the 68000, how- 
ever, makes it very difficult to get a 
clear overall view of the instruction set. 
If one is to program reasonably well in 
assembly language, one must be able to 
lay out in one’s mind which facilities are 
there and which are not. With the 68000, 
it often seems as if one is let loose upon a 
tropical island, full of flowers of dazzling 
beauty but so much underbrush that it 
seems impossible to scale its central 
mountain peak and survey the totality of 
the landscape. 


The main problem is with the mne- 
monics. This is not to say that the mne- 
monics show any glaring examples of 
bad design. They are serviceable, as far as 
they go; it is simply that it is possible to 
do much better. The purpose of this 
paper is to propose a new collection of 
mnemonics for the 68000. This is not to 
say that an assembler has been written, 
using these mnemonics (at the moment 
the author does not have access to a 
68000-based system). Rather, the pur- 
pose here is to show the many advantages 
of this set of mnemonics over Motorola’s. 
There is precedent for such redesigns; 
for example, the mnemonics of the UNI- 
VAC 1100 series were redone by CSC in 
1962 in connection with CSC’s design of 
the EXEC II operating system for the 
1100 series (a project in which this au- 
thor took part). 


The new mnemonics are given in 
Table I. The notation used in Table I is 
explained in Table II. It is important to 
note that the new mnemonics allow the 
entire instruction repertoire of the 68000 
— together with very brief explanations 
of all instructions — to be presented upon 
one single-spaced page, with all notation- 
al conventions laid out on another single- 
spaced page. 

A program selected at random from a 
recent book on the 68000! is presented 
in Table III with both the old and new 
mnemonics. Except for labels, which re- 
main the same in the two cases, the total 
number of keystrokes of non-blank char- 


by W.D. Maurer 


W. D. Maurer, George Washington Univer- 
sity, S.E.A.S., Washington, DC 20052. 








acters has been reduced from 196 to 98 — 
a reduction of 50%. The simplicity of 
understanding for the new mnemonics 
makes it easy, in fact, to spot a bug in 
the program of Table III. This will be ex- 
plained in more detail at the end of the 
paper. 

The basic ideas behind the new mne- 
monics are as follows: 


(1) The data registers and the address 
registers all receive new designations. The 
data registers are now called the A, B,C, 
D, E, F, G, and H registers, each of which 
is 32 bits long. The address registers are 


now called the S, T, U, V, W, X, Y, and Z 
registers, and each of these is 32 bits long. 
In particular, the S register is the stack 
pointer, known conventionally as A7. 
(The original designations for the registers 
A through H are DO through D7, and 
those for S through Z are A7 through AO, 
in reverse order, with AO corresponding 
to Z.) 


(2) There are no suffixes B, W, and L 
for byte, word, and long word operations. 
As we shall see, most instructions do not 
need such suffixes because they operate 
on data which has been defined as byte, 









OPERATION DESCRIPTION 














3A Wyk Add i. £0 v 

i Ae Add v to a (vy # it) 
ABab Add BCD 1b to la 
ABtu Add BCD 1MDu £6 IMDt 

4 AMa v Add a to vy. (memory) 

4 ASd v2 Arith. shift v2 by 1 
ASd ma,sc Arith. shift ma by s¢ 

1 AL vx Add vx to £ 
AXmab Add extended mb to ma 
AXmtu " ' mMDu to mMDt 

2 An vy Add n to v (v # it) 
Bop Branch to p 
Bat 12 Test bit 12 of a, op £ 
Bafb yee y (in b) i eee i eee 
Bar i2 Test bit 12 of a 
BaTb Test bit¢ y (in 6) of a 
B Branch to p on ce 



















& BE vi,iZ Teet bit 12 of vi, op £ 
4 Bia vi Lai Ww y (in a) Ww ! ! tt 
BS p Branch to subroutine p 
5 BT wl,12 fest bie £2 of v1 
5 Bla vi Test bit y (in a)oft vi 
3.0 yi Compare i with v 
1 Cav Compare a with v(v#1t) 
6 CKa v2 Check 2a bounded by v2 
Cmtu Compare mMtI with mMul 
i Cf vx Compare t with vx 
Deca p Bec Bs a+a- 1; a=-1?+p; 8: 
6 DSa v2 Divide signed 4a/v2 
6 DUa v2 Divide; unsigned “ha/v2 


Ea Exc hange halves of a 








6 MSa v2. Multiply signed _ Qatv2 

3 MSM v2 Move status reg. to oe) 
P6 MSR v2 Move v2 to status reg. 

PF MSC Move £ to $s 

i Me vx Move vx to -t 

P MES Move S$ to t. 

6 MUa v2 Multipjy uns. 2Za*v2 


Egh Exchange 4g with 4h 
FAL -i2 Frame aiiocat ion (iMt) 
FDt Frame deallocation 
HA. Halt (status reg.+i2) 

7d Jump to v 

12338 v Jump to subroutine v 

TURE yy. Load t with addr. of Vv 

4 USd ve Logical shift v2 by 1 
LSd ma,se Logical shift ma by sc 

1 u vow Move w to v (w#lt) 

1 Ma v Move v to a (v#1t) 

6 MCC v2 Move v2 (byte 2) to CC 
MKa k Move signed const. k-a 

1 MMa v Move ai to v (memory) 

1 MMt vx Move © f0 vx (memory ) 

9:MR rs,vx Move vx =~ segisters rs 
MRxt rs Move regs(= MR rs ,xMtI) 





G OPERATION DESCRIPTION 
















SN ¥,i Logical AND i to v 

6 Na v Logical AND v to @ 
NBa Negate BCD la 

4 NBM vi Negate BCD vl in mem. 
Nec il Logical AND AL to CC 
NGma Negate ma (2's comp.) 

4 NGM v Negate v in memory 

3 NMa v AND a to v (memory) 


NO No operation 





PON SR 22 Logical AND i2 to SK 
NIma NOT ma (ones' compl.) 

4 NIM v NOT v in memory 
NXma__ Negate extended ma 

4 NXM v " "ov in memory 

3.0 vet Logical OR i to wv 

6 Oa v Logical OR v to a 
OCO 11 Logical OR 71 to CC 

3 OMa v OR a to v (memory ) 

Pp OSR i2 Logical OR i2 to &§& 

LPR 2 Push address of v 

1 PH v Push v (= M mMDS,v) 

L Pi oy Pull v (= M v.amsi) 
PMxa Q(t) ee bytes 
Pxa Q(t) Q(t)+xa “ “ (periph.) 
R Return from subroutine 
RE " " excotn. (pull. SB) 

8 RM rs,vx Regs to memory rs * VX 
RMxt rs Regs-mem.(=RM rs, s,xMDt) 
ROd v2 Rotate v2 by l 
ROd ma,sc Rotate ma by sc 
RR Ret .&restore (pull CC) 
RS Reset external devices 
RXd v2 Rot. extended v2 by 1 
RXd ma,sc Rot. extended ma by sc 

3°35 Wt Subtract i from v 

tL Sag Subtr. v from a (v#lt) 
SBab Subtr. BCD 1b from la 
SBtu " " IMDa from 1MDE 

3 Sco vi Set vl=-1l (1f ce) or 6 

4 SMa v Subtr. a from v (mem.) 

i St vx Subtract vx from t 
SXmab Subtr. extended ma-mb 
SXmtu Subtr. ext. mMDt-mMDu 

¢ Sn v. Subtr. n from v (v#Flt) 

5 TE Test v, set flags N&Z 
TR vn Trap, using vector vn 

3° TS vi TE vi; vi(Chi-order) =i 
TV BVG €; TR 7; &: 

> x Y¥, Exclusive OR i to v 


Exclusive OR il to CC 
Excl. OR a to v €mem.) 
Exclusive OR 42 to SK 
Extend sign a (to xa) 
Zero (clear) v ee 


Loe) 

PS 

Ks 

fo 
ise ee 
nN fee 


Table I 
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eee 


word, or long word data, which deter- 

mines the type of the operation auto- 

matically. In cases where the length must 
be given, however, it is given in bytes as 

1, 2, or 4. This has the immediate advan- 

tage of avoiding the non-standard term 

“word.” (A word has 32 bits, not 16, on 

the IBM 360 and 370, for example.) 

The length designation appears in the 
following places: 

(a) Jn certain of the mnemonics. The in- 
struction whose Motorola mnemonic 
is ADDX.L D4,D3 (Add Extended, 
Long Word, register D4 to register 


D3) is simply AX4DE in the new 
mnemonics. Here D and E denote the 
D register (formerly D3) and the E 
register (formerly D4) and the 4 
denotes, very simply, “four bytes.’’ 
Note that the order is ‘‘destination 
first, then source’’; see point (3) be- 
low to appreciate how much simpler 
this makes a great number of the 
mnemonics. The corresponding byte 
and word comparison instructions 
ADDX.B D4,D3 and ADDX.W D4, 
D3 become AX1DE and AX2DE re- 
spectively. 
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A, B, ©, D, E, F. G, or H (data registers) 
A, & ©, D, gE, F, 6, or H (data registers) 
= condition code register (rightmost byte of SR) 
= one of the following forms: 


I true vc overflow clear 

F false VS overflow set 

HI high PL plus 

LS low or same MI minus 

CC carry clear GE greater or equal 
CS carry set LT less than 

NE not equal GT greater than 

EQ equal LE less or equal 


label, labeltj, or other address expression (length defined 


= N (op=AND with 0), 0 (op=OR with 1), or X (op=XOR with 1) 
= > 0, &, F, GC, RH, S €stack pGinter), {, U, V. W; 
X, ¥, or Z (data register or address register); length = 4 


or “#bb... where the h's are hexadecimal digits, 
the d's decimal digits, and the b's binary digits (constant) 

~~ +k i8 +0 theough +127; -k is -1 through -128 (constant in move 
instruction MK; 8-bit displacement in based indexed modes ) 

=-- 1, 2, or 4 (length, or number of bytes in register or memory) 

my 1, 2, 3, 4, 5, 6, 7, or 8 Cadditive or subtractive constant) 
g3, but *-32766 < p < *+32769 (relative address: *=this loc.) 

e (data) or mBj (data, length m, at address j.) (memory loc.) 

~~ same as q but address must have length 2 (memory location) 

~- same as gq but address must have length 3 (memory location) 

g3, but *-126 < r < #4129 (relative address: *=this location) 
z1/z2/... where each gk = ¢ or g-h (g, h as above: g-h means 
registers gg, gti, ...,; h) (multiple registers for MR and RM) 


@e L (lett shift) or R (right shift) 
e = 

in definition of given label) or mBlabel (length m) 
f£ 
g A, B, C 
h -- same as g& (second register in exchange instruction) 
i = y (constant) or e (address of e) (immediate data) 
il -- same as i but length must be 1 (immediate data) 
42 -- Same as i but length must be 2 (immediate data) 
4 = Shh... or dd... 
k 


sc =i, 4, 3, 4, 5, 6, 7, 8, A, B, C, DBD, E, F, G, H Cehifte count 


—— in rightmost 6 bits of register A-H if this jis specified) 
= Status register (length 2; CC = rightmost byte of SR) 

S (stack pointer), T, U; ¥V, WwW, X, ¥, or Z (address registers) 

S (stack pointer), fT, U, V, WwW, X, Y, or Z (address registers) 
one of the following forms (variable in register or memory): 

#i (immediate) (Groups 1 and 6 only) 

qg3 (absolute long) (All groups) 

q2 (absolute short) (All groups) 

ma (data register direct) (Groups 1, 2, 3, and 6 only) 

mt (address register direct) (Groups 1 and 2 only) 

mMt (address register indirect) (All groups) 

mMtI (post-increment) (All groups except 7 and 8) 
mMDt (pre-decrement) (All groups except 7 and 9) 
mMtg or mMtgtk (based indexed short) Cail groups) 

mMt4g or mMt4g+k (based indexed long) (all groups) 

qg2(t) or mMttq2 (based) (All groups) 

p (relative) (Groups 1 and 5 through 9 only) 
r(t) or r(4t) (relative indexed) (Groups 1 and 5 through 9 only) 
~~ like v but with length m (variable in register or memory) 
-- 0 through 15 (vector number in trap instruction) 
~~ like v in M v,w but group 3 and length must equal length of v 
-— tike m, but x # 1 (vx is like v but with length 2 or 4) 
= mBj (length m) or j (length as small as possible) (integer) 


Table IT 





(b) Preceding register designations. The 
instruction MOVE.L A3,A6 (old 
mnemonics) moves A3 to A6. Re- 
naming these registers W and T re- 
spectively, we can write M 4T,4W 
(reversing the order as before). It is 
simpler, however, to write MT 4W 
where MT means “move to the T 
register” and 4W means “four bytes 
of the W register.’’ The correspond- 
ing byte and word move instructions 
MOVE.B A3,A6 and MOVE.W A3, 
A6 become MT 1W and MT 2W re- 
spectively. 


(c) As part of more general addressing 
modes. Address register indirect ad- 
dressing, involving the X register, in 
a one-byte instruction, would be de- 
noted by 1MX (one byte of memory 
indexed by X.) The same thing, with 
auto-increment or auto-decrement, 
would be 1MXI or 1MDxX respective- 
ly. (Note that the I, for “‘increment,”’ 
follows the register name, whereas 
D, for “‘decrement,” precedes it; this 
resembles the placement of + and - 
in the Motorola mnemonics, and is 
done for the same reason — because 
incrementation follows the reference 
to memory, while decrementation 
precedes it.) Even the most complex 
mode, namely based indexed long, 
is straightforward; thus 2MU4E-9 
means “two bytes of memory, in- 
dexed by the U register and by all 
four bytes of the E register, minus 
the displacement 9.” The same thing 
in Motorola mnemonics would be 
-9(A5,D4.L) — over 50% more char- 
acters (not counting the extra .W 
on the instruction mnemonic) and 
lacking the straightforward reada- 
bility of the new expression. 


(3) Most operation codes have only 
one argument. In fact the only operation 
codes with two arguments are moves, 
shifts, and immediate addressing in- 
structions. Thus M KPREV,KCURR 
sets KPREV (in memory) equal to 
KCURR (in memory); A FCOUNT,5 
adds 5 to FCOUNT in memory; ASL 
1H,4 shifts 1H (one byte of the A regis- 
ter, formerly known as D7) left arithme- 
tically by 4. (If the mnemonic variations 
are counted separately — if MA through 
MH are counted as eight instructions in- 
stead of one, for example — then almost 
75% of the mnemonics have no argu- 
ments; about 25% have one; and only 
2% have two.) 


—————— eee 
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The destination register in a great 
number of the arguments is incorporated 
into the mnemonic. For the C register, 
for example (formerly D2), we have MC 
(move to C, AC, SC, CC (add, subtract, 
and compare), MSC, MUC, DSC, DUC 
(multiply and divide by C, signed and 
unsigned), NC (AND), OC (OR), and so 
on. For a few “operate to memory 
instructions” such as AMC (add to 
memory), SMC, NMC, and OMC, the C 
register is the source, rather than the 
destination. There are also EC (exchange 
halves of C), ECD (exchange C and D), 
NG4C (set C to its two’s complement), 
X2C and X4C (extend sign to two bytes 
or four bytes of C), and other such ex- 
ceptional cases. 


(4) All operations on data have 
lengths determined by the data unless 
otherwise directed. If AMOUNT is a 32- 
bit variable, then MF AMOUNT moves 
AMOUNT to the F register, and is a long- 
word (32-bit) operation. To move only 
one or two bytes of AMOUNT to the F 
register, one uses MF 1BAMOUNT or MF 
2BAMOUNT respectively. 


Tables I and II are meant to be used 
in tandem. As an example, consider the 
second entry in Table I, namely Aa v 
(Add v to a). By consulting Table II, one 
learns that a may be A, B, C, D, E, F, 
G, or H, and that v may have one of sev- 
eral forms. Let us consider the form mt. 





Elegance 


Power 
Speed 





BDS € Users’ Group 
Supporting All C Users 


Box 287 
Yates Center, KS 66783 


Here m is 1, 2, or 4, but in the descrip- 
tion of Aa v we find the designation 
‘“y#1 tr’: that is, v cannot be of the form 
lt, so that m, here, must be 2 or 4, while 
t is S, T, U, V, W, X, Y, or Z (again by 
reference to Table II). Thus there are the 
following possibilities (for example): 


AA 2X 
(Add to A from two bytes of X) 


AD 4T 
(Add to D from four bytes of T) 


for a total of 128 (8 x 2 x 8) possibilities. 
Another form of v, in this same instruc- 
tion, is q3, described as “‘same as q but 
address must have length 3.”’ So this is a 
24-bit (or three-byte) address, and we 
have the following further possibilities 
for v: 


q = e= label 
(label of location with three-byte 
address) 

q= mBj=4B$hh... 
(length 4, but address still has 
length 3) 

gq = e=labeltj=labelt+dd... 

q = e= mBlabel 
(data has length m; address has 
length 3) 


This means that if NST is a two-byte vari- 
able, ECOUNT a four-byte variable, and 


OLD MNEMONICS 


PGM 9 4A 
CLR.W 
MOVE.B 
LEA 
CLR.W 


MOVEA.L 


MOVE.B 
CMP.B 
BCC.S 
MOVE.B 
MOVE.B 
MOVE.B 
ADDQ.W 
CMPA.L 
BHI 
TST.W 
BNE 
RTS 


NSWLITCH 


MOVEA.L LIST,AO 
DO 


F7 an array of single-byte variables, we 
could also write 


AF ECOUNT 
(Add to four bytes of F from 
ECOUNT) 

AD 4B$FC 
(Add to D from four bytes start- 
ing at address $FC) 


AG F7+50 
(Add to one byte of G from byte 
50 of F7) 

AA 1BNST 
(Add to one byte of A from one 
byte of NST) 


Still another form of v, in this same in- 
struction, is #i, for immediate data. By 
Table II, we can have i = y = mBj = 
4B$hh... which gives us the possible 
instruction 


AD #4B$FC 
(Add $FC to four bytes of D) 


Note the two meanings of the 4 in 
4B$FC — in this instruction it means “‘the 
constant $FC as a four-byte constant,” 
whereas in AD 4B$FC it means “four 
bytes of memory.” 


The column headed G in Table I is 
the group. Instructions belong to groups, 
and each group can use only certain of 
the v options as specified in Table II. For 
example, the instruction LAtv belongs 
to group 7. This means that v can be of 


NEW MNEMONICS 


PGM 9 4A MZ 
Z 


(A0)+,D0 MA 
-1(A0,D0.W),AL 
D1 Z 


AO ,A2 MX 


(A2)+,D0 

{A2) ,DO CA 

NSWITCH 

{(A2),D1 MB 

D1,-1(A2) MMB 
DO, (A2) 

$1,D1 Al 

A2 Al NSWITCH 

NEXT BHI 
D1 TE 

SORT 


NSWITCH 
IMX 
IMX-] 


R 


REGISTERS 


DO Di D2 D3 D4 DS D6 D7 AO Al AZ AS AS AS 





Table III 





38 


Circle no. 42 on reader service card. 


Dr. Dobb’s Journal, Number 72, October 1982 


A RIS EY IE SOT SIE 2 IRS EPCS OEE | ERE A BOI RES 


the form r(t) or r(4t), since these are 
specified in Table II as “‘groups 1 and 5 
through 9 only.’’ Thus if WTABLE is a 
suitable relative address, then each of the 
following is legal: 


LAT WTABLE(Z) 
(Load address of WTABLE plus Z 
into T) 
LAV WTABLE(4W) 
(Load address of WTABLE plus W 
into V) 


where two bytes of Z, and four bytes of 
W, are used. On the other hand, v cannot 
be of the form mMfI or mMDt, since 
these are specified in Table II as “all 
groups except 7 and 8” or “all groups ex- 
cept 7 and 9.” Thus each of the follow- 
ing is illegal: 


LAT 2MZI 
LAV 4MDW 


It should be noted that the length (1, 2, 
or 4) is meaningless in the case of the spe- 
cific instructions LAt, PAt, J, and JS. 
Thus in the program of Table III, LAY 
IMZA-1 means “Zoad Address, into i, 
of the memory word indexed by Z and 
by A, minus 1.” The 1 before the M 
means nothing, but it must be present (al- 
though 2 or 4 would do just as well), 
since LAY MZA~-1 would load the ad- 
dress of a variable called MZA, minus 1. 
(Privileged instructions are group P.) 


Examples of the v options which 
start with a length (1, 2, or 4) are as fol- 
lows: 


(1) 1C (one byte of the C register; the 
other three bytes are ignored) 

(2) 2V (two bytes of the V register: ex- 
tended through the other two bytes) 


(3) 1MU (one byte in memory, indexed 
by U — that is, the address of this 
byte is contained in U) 


(4) 2MWI (two bytes in memory, in- 
dexed by W, and then increment W 
by 2 after making the reference) 

(S) 4MDT (four bytes in memory, in- 
dexed by T, and decrement T by 4 
before making the reference) 

(6) 2MUE (two bytes in memory, in- 
dexed by U and by E — that is, the 
address of this byte is the sum of 
U and two bytes of E) 

(7) 1MWX (one byte in memory, in- 
dexed by W and by X) 

(8) 4MZ4G (four bytes in memory, in- 
dexed by Z and all four bytes of G) 

(9) 4MXY+8 (four bytes in memory, 
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The Z-80 C Cross-Compiler 
Fleet has arrived. 


Is your Z-80 C object code larger than it needs to be? 
Retreating to assembler because C isn’t fulfilling its promise? 

Your ship has come in. Vandata introduces the Z-80 C Cross. 
Compiler Starting with the finest “pure” C-to-8080 cross-compiler 
available (Whitesmirhs), we've added 8-bit expressions, a tight 
calling convention, a peephole optimizer and full use of the Z-80 
INSIrUCTION set to reduce your code size by up to 36%. 

And if you're in a ROM-based environment, you'll appreciate 
our in-line machine code. listings, ROM-able tables and optional 
royalty-free runtime library! 

The Vandata Z-80 C Cross-Compiler is currently available for 


VAX, PDP-11 and ONYX hosts. 


For more information cal! 
(206) 542-7611 or write VANDATA 

THE UPPER HAND 
IN COMPUTER 


17544 Midvale Ave. N., Suire 205. 
SOFTWARE. 






Searrle, WA 98133. 





Circle no. 180 on reader service card. 39 





End the Dark Ages of 
ngudge.... 





spn se es ee 


indexed by X and by Y, plus 8 — 
that is, the address of this byte is 
the sum of X and two bytes of Y, 
plus 8) 


easier to spot a bug in this sorting pro- 
gram, intended to sort a table of un- 
signed, single-byte quantities into de- 
scending order. The B register (formerly 
D1) is being used as the exchange flag: 
set to zero (Z 2B), incremented to show 
the exchange (Al 2B), and tested at the 
end TE 2B). But it is also used as a tem- 


(10) 1MZ4S-16 (one byte in memory, 
indexed by Z and by all four bytes 


of the stack pointer S, minus 16) 


Assembler 
—e einer MOTOROLA 
a MOTOROLA 
D=3 MVI D,3 MNEMONIC EXAMPLE MNEMONIC MNEMONIC EXAMPLE MNEMONIC 
A=M (HL) MOV A,M ee 
- how i A 2MZI,1 ADD.W #1, (A0)+ | N v,i N 4MDY,8 AND.L #8,-(Al 
= | yo > > nae) 
A=M (DE) LDAX D Aa v AA 4MDY ADD.% -(A1),D0 | Na v NB 1MXI  AND.B (A2)+,D1 
M(DE) =A STAX D ABab ABGH ABCD D7,D6 NBa NBC NBCD D2 
a ABtu ABWX ABCD -(A2),-(A3) | NBM v1 NBM 1MZT NBCD 0(A0,A6) 
HL=M(L6) LHLD ; L6 AMa v AMB BYT1 ADD<B D1, BYT1 Nec il NCC S$1A. AND.B @S1A,5R 
HL=5 LXI H,95 ASd v2. ASR WD1 ASR WD1 NGma NG1A NEG.B DO 
ASd ma,sc ASL 2C,4. ASL.W 4,D2 NGM v. NGM 2MUD NEG.W 0(A5,D3) 
; me. At vx AY 4MV ADD.L (A4),Al NMa v NMD 4MDS AND.L D3,-(A7) 
SMAL/80 gives you the logical power, AXmab AX1DE ADDX.B D4,D3 NO NO NOP 
:; . An v A4 GF ADDQ.L #4,D5 NTma NT2E NOT.W D4 
piled, structured high level language Bp- B LABEL1 BRA LABEL1 NTM v NIM BYT1 NOT.B BYT1 
like Pascal, Ada or C, plus the effi- Bat i2 BGN 8 BCLR #8,D6 NXma NX4F NEGX.L D5 
i mbly | : Bafb BHOF BSET D5,D7 NXM v. NXM IMS NEGX.B (A7) 
ciency of assembly language Bat 42 BET $10 BIST $10,D4 Oy. 0 2G,$AA OR.W #$AA,D6 
1) intuitive, processor-independent sym- BaTb BDTC BIST D2,D3 Oa v OH BYTL OR.B Mae 
bolic notation system to make your pro- Bec Pp BEQ BETA BEQ BETA oce il occ 8 OR 8 #8, 08 
pe 4a BF vl,i2 BX M9,6 BCHE 6 M9 OMa v OMB 4MUI OR.L D1, (A5)+ 
grams easy to read, debug and maintain, Bfa vl BNB 1MTI_ BCLR D1, (A6)+ OSR 12 GSR $200 OR.W #$200,5R 
1 programming constructs BEGIN... BS p BS PROG3 BSR PROG3 PA v PA 1MV PEA (A4) 
END, IF...THEN...ELSE, and LOOP... BT vl,i2 BI M8,3 BTST 3,M8 PH v PH WD1 MOVE.W WD1,~(A7) 

; “ "Bie Bla vl BTA 1MDZ BTST DO,-(AO) PL v PL 4A MOVE.L (A7)+,D0 
REPEAT, plus indentation, to graphicat- Cv,i C 4MSI,5 CMP.L #5,(A7)+ | PMxa Q(t) PM2B J(z) MOVEP.W D1,J(A0) 
ly display the structure of your algorithms, Cav cp 1A CMP.B DO,D3 Pua Q(t) PAC J(Y) MOVEP.L J(A1) ,D2 
0 extremely flexible macro and text cK v2 Sire GHEE Aa es 2 a “ a 

: : mtu . +,(Al)+ 

DIC PTOE DE 22 CIES POET OWE Pre Ct vx CX 2W CMP.W A3,A2 RM rs,vx RM T,LW1 MOVEM.L A6,LW1 

gramming environment, Deca p pOs¢ Li9 DBCS D2,1L19 RMxt rs  RM4Z T~Y " Al-A6,-(A0) 

() compiler/linker to mix your input DSa v2 DSD WD1 DIVS WD1,D3 ROd v2 ROR WD1 ROR WD1 

source code and relocatable object code DUa v2 DUE 2MU  DIVU (A5) ,D4 ROd ma,s¢ ROL 1D,C ROL.B D2,D3 

creating modular programs; Ea os Ape a ae oan 

g viele Egh ESA ExG A7,DO RS RS RESET 

C) translator program to automatically FAt -i2 FAZ -25 LINK A0O,-23 RXd v2 RXL WD1 ROXL WD1 

upgrade your assembly code to SMAL/80; FDt FDT UNLK A6 RXd ma,sc RXR 4E,6 ROXR.L 6,D4 

2 availabl CP/M di , H 12 H $FOFO STOP $FOFO Susi $ IMW,32 SUB.B #32,(43) 

available on CP/M disks with manual Iv J 1MYD-8 JMP -8(A1,D3) Sav SA 2MX4G-8 SUB.W -8(A2,D6.L),D0 

for $150 plus $4 shipping. JIS ov JS 1MX4G JSR (A2,D6.W) SBab SBFE SBCD D4,D5 

1 Macro processor available separately a LAW IMVI LEA (A4)+,A3 SBtu _ SB2Y SBCD -(A1),-(A0) 
; ee LSd v2 LSL WDl  LShL Wdi Sce vl SGT BYTL SGT BYT1 

for $75. Complete tutorial text: *’Struc- LSd ma,sc LSR 1F,H LSR-8 D7 ,D5 SMa v. SME 4MWH SUB.L D4,0(A3,D7) 

tured Microprocessor Programming M view M LW1,33 MOVE.L J3,LW1 St vx SU 2F SUB.W D5,A5 : 

(Publ. Yourdon Press) $20. Ma v MC 2,#S8C MOVE.8B #$C,D2 SXmab SX 4HB SUBX.L D1,D7 

Send for your free button and litera- MCC v2 MCC $1A MOVE $1A,CCR SXmtu SX1US  SUBX.B -(A7),-(A5) 

MKa k MKH -100 MOVEQ -100,D7 Sn v S7 2MTI SUBQ.W #7, (A6)+ 

ture or try the Ultimate Demo: MMa v MMA WD2 MOVE.W DO,WD2 TE v TE 1MV4X TST.B 0(A4,A2.W) 

SMAL/80 is 100% Guaranteed! Re- MMt vx MMV 4MU  MOVE.L A4,(A5) | TR vn TR 4 TRAP 4 

; ays MR rs,vx MR T,LW1 MOVEM.L LW1,A6 | TS vl Ts 1¢ TAS D6 
turn it fora full refund within 45 days MRxt re MR4Z A/H ©“ (A0)+,D0/D7 | TV ame Scie 
of purchase if not satisfied. MSa v2 MSB 2MDW MULS -(A3),D1 K v,i .§-«X:«AIMW,SFF EOR.B #S¥F, (A3) 

4 a tee eee eee 
5 ve > XMa v XMD LWL EOR.L D3, LW1 
Chromod Associates, MSt MSX MOVE A2,USP XSR i2 XSR $400 EOR.W #$400,SR 
1030 Park Ave., Hoboken, N. J. 07030 Mt vx MY 2MZ MOVE.W (AO),Al | Xxa X4c ext .L.02 

Telephone: 201) 653-7615 Bia ee oe 

prance > 
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Also available from 
WESTICO (203) 853-6880 


Circle no. 255 on reader service card. 


Table IV gives examples of all the 
instructions in both the old and the new 
mnemonics; Table V gives a more expand- 
ed explanation of the program of Table 
III. We may note from Table V that the 
use of the new mnemonics makes it much 


porary register in moving 1MX to 1MX-1 
(in the instructions MB 1MX and MMB 
1MX-1). If the bug is not fixed, the in- 
struction Al 2B might increment -1 to 
zero, making it look like the exchange 
flag is still clear. 



































































Table IV 
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An example which shows the bug is 
that of a table of size greater than $82 
(that is, hexadecimal 82), which is al- 
ready sorted in descending order except 
that its last two bytes are $FF (and no 


pass. At the end of the 128th pass, there- 
fore, B will be zero; the TE then tests for 
zero; the BNE does not branch back; and 
the sort terminates with the two $FF 
bytes in positions 129 and 130 from the 


end, instead of in the first two positions, 
where they belong. 


other byte is $FF). In the given program, 
these final two bytes move up by one 
position in each pass through the table; 
and only two exchanges (the ones involv- 
ing these two bytes) are made in each 
pass, since the table is otherwise already 
sorted in the proper order. Therefore, MB 
and Al are executed only twice in each 
pass through the table. In the first pass, 
$FF is moved into B and this is then in- 
cremented by 1 as a two-byte quantity, 
producing $100. Subsequently, $FF is 
moved into the rightmost byte of B, leav- 
ing the rest of B undisturbed; this pro- 
duces $1FF, which is then incremented 
to $200. Thus the final value of B is $200 
at the end of the first pass, and, in gener- 
al, it is 2 x $K0O at the end of the kth 
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(Move LIST, which is a 4-byte quan- 
tity, to the Z-register) 

(Zero, or clear, two bytes of the 
A-register) 

(Move, to the A-register, one byte of 
memory, indexed by the Z-register, 

and then increment the Z-register by 1) 
(Load into the Y-register the address 

in memory indexed by the Z register 

and by the A register, minus 1) 

(Zero, or clear, two bytes of the 
B-register) 

(Move, to the X-register, four bytes 

of the Z-register) 

(Move, to the A-register, one byte in 
memory, indexed by the X-register, and 
then increment the X-register by 1) 
(Compare the A-register with one byte 

in memory, indexed by the X-register) 
(Branch on carry clear to NSWITCH > 
(Move, to the B-register, one byte in 
memory indexed by the X-register) 

(Move to memory, from the B-register, 

to one byte in memory, indexed by the 
X-register minus 1) . 
(Move to memory, from the A-register, 
to one byte in memory, indexed by the 
X-register) 

(Add 1 to two bytes of the B-register) 
(Compare the Y-register with four bytes 
of the X-register) 


PGM_9 4A 







MA IMZI 








IMZA-1 






LAY 







SORT i i at aR 








Mk 42 







NEXT MA IMXI 








CA IMX 







BCC NSWITCH 
MB IMX 








MMB) 1MX-1 










MMA i1MX 






Al 2B 
NSWITCH CY «4% 






BHI NEXT (Branch on high, 4. 3., ¥ > KX, to NEXT) 
TE 2B (Test two bytes of the B register) 
BNE SORT (Branch to SORT on unequal to zero) 






R (Return from subroutine) 







REGISTERS 






DO DL D2 D3 D4 DS D6 D7 AO Al A2 A3 AAS AS AG A7 





Do & F © 8.4 Ff kM M8. Ts 





A & G 





Table V 
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Now! 

A periodical 
dedicated 
exclusively 

to the needs of 


the CP/M user 


CP/M Review. 


Each of the six bimonthly issues 
brings you comprehensive news 
of the public domain and 
commercially available software. 
Features, articles and CP/M news. 


Special Offer 


CP/M Review's 

first installment of the 
on-going in-depth 

Buyers Guide for $5.00. 

This includes a handy 
reference card and 

shipping costs. 

The Buyers Guide covers 

over fifty CP/M systems, including 
configuration, cost, peripherals, 
software and service. 


The above offer is included free 
when you subscribe to CP/M Review 


ENTER YOUR ORDER TODAY 


UO Yes. Enter my subscription for 1 year 
(6 issues ) which includes the above offer. 
Enclosed is $18.00* 


U Enclosed is $5.00* for my Buyers 
Guide and CP/M reference card only. 


Name ___. ae 


Address ee 











City _ 2 





State 
Mail to 


CP/M Review 

2711 76th Avenue S.E. 
Mercer Is, WA 98040 
(206) 232-6719 


CP/M is the trademark of Digital Research Inc. 
“Washington residents add 6.3% Sales Tax 


CP/M 
REVIEW 


THE PUBLICATION FOR THE CP/M COMMUNITY 


Zip - 











Circle no. 232 on reader service card. 
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CP/M EXCHANGE 


by Gene Head 








Mail received after the first CP/M Ex- 
change was encouraging. There is heavy 
interest in modem communication and 
program exchange. The most often asked 
question was, “‘How do I get started using 
my modem?” Well, it may be as simple as 
one, two three. I say may because each 
modem installation is different. If you 
have a basic understanding of the follow- 
ing three steps, you should be able to get 
- signed-on to a Remote CP/M (RCP/M) 
System using the MBOOT3 program (list- 
ing begins on page 47). 


1. Modem Status 
2. Modem Input 
3. Modem Output 


If you understand how the CP/M 
functions CONSOLE STATUS, CON- 
SOLE INPUT and CONSOLE OUTPUT 
operate, you also understand how the 
modem should operate. (Note: CONSOLE 
routines use only seven bits of data and 
the MODEM routines must use all 
eight bits.) Don’t be put off if you fail 


PROBLEM: 













system to the 


Z-8000 


ZE 


commercially available Z-8000 boards. 


How to mate your CP/Me or ISIS: 


(without losing all your present capabilities) 


SOLUTION: 


is the software connection which permits 
Z-8000 applications to run under your cCur- 
rent operating system, resulting in portable 
16-bit software which runs under CP/M or ISIS! And ZEX 
is user-configured for any Z-8000 alternate bus master, so 
that it can support your prototype hardware, as well as 


is a complete Z-8000 Development Package, 
ZAS which includes a powerful relocatable 
cross assembler (ZAS), a flexible object task 


to understand how to get the CP/M 
CONSOLE functions to operate. You'll 
need special assistance to get your mo- 
dem functional, but I have a plan for you 
too! 


MBOOTS3 is a simple, stripped-down, 
receive-only version of Ward Christensen’s 
MODEM program. The idea is to get 
MBOOT3 operating and use it to down- 
load (receive) a full MODEM program 
from an RCP/M system. If you have a 
modem, the software to simulate a ter- 
minal and the ability to “‘capture’’ re- 
ceived data into a file, just log on to an 
RCP/M and command the remote com- 
puter to list the MBOOT3 file using the 
CP/M command TYPE. Otherwise, spend 
an hour or so and type in MBOOTS. 

Customize the hardware-dependent 
equates, assemble, and load MBOOTS3. Fol- 
low the instructions on the facing page, 
remembering that each RCP/M system 
may be slightly different. Use your head. 
Don’t be discouraged. Try to get the SYS- 





tem OPerator’s help by using the CHAT 
command, or try ringing his bell by typ- 
ing control-G. You can’t hurt the remote 
system, and every RCP/M I’ve ever used 
has been very forgiving of errors and even 
untimely disconnections. 


Modem Hint # 1 


You will probably need cooperation 
from someone with a modem to test your 
system out before making long-distance 
calls to RCP/M’s. If you can’t get that 
special help, consider this: colleges with 
computer departments usually have a 
modem telephone for remote users. With- 
out an account number and/or password 
you can’t do much but you can at least 
verify that the basic communication, 


modem-to-modem, is operating. Execute 
the MBOOT3 program as directed in the 
source listing and then access any modem 
line by telephone. Try a few carriage re- 
turns to get the remote system “‘talking”’ 
to your system. Words like FULL and 


ANNOUNCING 
THE C86™ C COMPILER 


— THE COMPILER THAT SPEAKS 
THE LANGUAGE OF THE FUTURE! 


builder (ZLK), and an absolute object loader (ZLD), as well 
as the ZEX run time module. The package was developed 
specifically for the Z-8000, and supports the complete 
Zilog instruction syntax for both the Z8001 and 28002, in- 









Kernighan and Ritchie’s book, The C Programming Language, is 
the key source for C. Just as fundamental is the C86™ C 
Compiler. 


The C86 ™C Compiler is especially designed for the IBM® 





cluding support for mixed segmented and _ non- Personal, IBM® Display Writer, CP/M-86° and MS-DOS® 
segmented code. For further information on the C programming language 
and the C86 ™ C Compiler, pl ol 
ZAS Package CP/M: $395 ™ piler, please contact 
ISiS-Ir ..$495 ae innovations, inc. 
ine Street 

weeny Ma nual Only.................. $25 vederar of Dig Reset: i an Me DOS a eptere Lincroft, New Jersey 07738 
WARES Supplied on Single Density 8”’ Disk marks of International Business Machines, Inc Telephone: (201) 530-0995 


CP/M: Digital Research, Inc. ISIS-Il- Intel Corp. 


Box C Norwood, CO 81423 (303)327-4898 Circle no. 18 on reader service card. 


: ‘ 
Circle no. 39 on reader service card. 7 
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HALF and HELP might get results. Check 
it out... 


Special Assistance 


Here is where the novice can be 
helped by the experienced modem user. 
If you have the MODEM program work- 
ing on your system, send me a card 
with all the details about your specific 
hardware, the source listing of just the 
hardware-dependent equates and any 
unique hardware-dependent code, and 
how they are configured for your set-up. 


Likewise, if you have the hardware 
but don’t know exactly how to custom- 
ize the software, send me a card with 
your specific hardware specifications. 
(Keep it simple!) ’ll match your request 
with a known working system and send 
you the customization details. If I can’t 
get an exact match, I’ll send along the 
best data I have available. Be sure to 
enclose an SASE with your request. Vl 
do free photocopying (but no free 
postage) as long as this doesn’t get too 
involved... 


If you can offer help or need help, 
let the ‘“‘CP/M Exchange” know! Be sure 
to include your disk format and complete 
modem configuration. Send your com- 
plete name, address, city, state, zip, and 
phone with area code. 


Exchange Mail 


The first response to the CP/M Ex- 
change came from DDJ contributor 
Bob Blum. Bob suggested electronic mail 
for communication. If the interest is 
there, we might be able to compile a 
directory of those using this form of 
communication. I will make my RCP/M 
system available if there is serious inter- 
est. Anyone else have ideas along these 
lines? Bob is also preparing a contribution 
on keyboard buffering in a modified CCP 
for CP/M that will be included in a future 
“CP/M Exchange.”’ 


The most specific letter seeking help 
came from Charles Henderson of Mid- 
land, Texas. Charles is interested in why 
SPEED and FAST won’t work with CP/M 
2.x. He suspects the track buffering is 
involved but doesn’t understand all the 
implications. A _ definitive article on 
track and sector skewing, interleaving, 
sector tables, etc. would be most appro- 
priate. If you have a solid understanding 
of these principles, write a paper and send 


it in! Share with others what you have 
learned. 


Dana Trout of Goleta, California, 
notes that CP/M Function #37 does not 
work as described in the manual. This 
function to reset the disk drives will reset 
all drives except the current default drive. 
If the current default drive is set to R/O 
and function thirty-seven is executed, 
the default drive is still in R/O! Anyone 
have a fix and/or explanation for this? 


Roland Lupient, KB9RR, has ham 
radio gear, an Altair 8800 and CP/M 
User’s Group volume 41. He would like 
to hear from anyone who can help inter- 
face the ham gear and computer (ad- 
dress: 1953 Graham Lane, Mosinee, WI 
54455). 


Finally, William Burnett of Sinton, 
Texas, wonders if there are any Super- 


Downloading MODEM Using 
~ MBOOT3 


First, execute MBOOT3 as _in- 
_ Structed in the source listing (begins 
on page 47). It will sign on, but there 
will be no screen activity after the 
sign-on messages. In the TERMINAL 
mode, all displayed console characters 
come from the remote system. Even 
keys from your keyboard are “‘echoed”’ 
back, so if there is no remote system 
to echo back the keystrokes, you 
won't see them on your CRT. 


Now, call a remote CP/M System 
(see list on page 44), when you hear 
the remote modem carrier tone, con- 
nect your modem to the phone line. 
The two modems are now connected 
and your computer is ‘“‘talking’’ to the 
remote computer. Press the Return 
key once a second until you see the re- 
mote computer’s sign-on message, usu- 
ally asking how many nulls you need. 
(Answer 0 to the nulls question if 
you're using a video terminal. ) 


Follow the host computer’s in- 
structions until you finally reach the 
CP/M operating level with the expect- 
ed A>. You are now in control of the 
remote machine. 

To find the MODEM program 
type: 


DIR MODEM *.* 


brain users out there who have access to 
the CP/M User’s Library? The same ques- 
tion can be asked about North Star, Os- 
borne, and all the other five-inch for- 
mats. If you can copy the CP/M User’s 
Library to any of the many five-inch disk 
formats, let me know. I suspect you will 
be in great demand, and while you may 
not make a lot of money at this, a couple 
of bucks copying fee seems reasonable. 


That covers it for now. Every letter 
to the “CP/M Exchange” has received 
either a personal response or was noted 
in this column. If you have something to 
contribute, a question or comment, let’s 
hear from you! D>; 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 528 


This will show you the exact name of 
the MODEM files available. You should 
see in the listing the MODEM.ASM file 
or some similar source code file. 


To receive the file type: 
XMODEM filename.type 


The remote system should tell you 
that XMODEM is ready to send the 
requested file, then it will wait. There 
will be no further screen activity from 
the host computer. It will look as 
though you have lost control, but 
don’t fret. The host is waiting for your 
MBOOT3 program to send special pro- 
tocol characters to begin the transfer 
and won’t respond to your keyboard 
characters until the transfer is com- 
pleted or aborted. 


Now that you know the host is 
ready to send and is waiting for you to 
be ready to receive, press your ESCape 
key. This key tells MBOOTS3 to receive 
the file the host is sending. 


Most CP/M commands are avail- 
able to remote users, so use the re- 
mote system just as you would your 
local computer. Be sure to sign off by 
typing BYE and disconnect your 
modem from your phone line, if it 
isn’t automatically disconnected by 
your software. 

As with any new operation, prac- 
tice and experience are the best teach- 
ers. 
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Remote CP/M Software Exchange Systems 
List # 24 
Last Revised March 21, 1982 


List #24 revised and updated courtesy of Hyde Park 
RCPM, CP/M-Net, and Mississauga RCPM. 


This is part of a CP/M file called RCPMLIST.xx. It is found 
on most RCP/M systems. The systems presented here are 
representative of what you can expect to find. Each was 
“up” as of February, 1982, unless otherwise noted. Log on 
to any system and then get a copy of this complete file for 
an accurate directory. 


This is a partial list. 


California 


(Best) 

Bakersfield, CA 

CP/M-Net'™, (805) 527-9321, Kelly Smith 

No A.L.D.S.; 1900-2300 (PST) Monday-Friday, 

1900 Friday to 0700 Monday 

110-600+ baud 

20 Mb of files on 2 hard disks (=8 logical disks) 

System now includes SIG/M Vol. 1-10 = E:, SIG/M 
Vol. 11-20 = F:, SIG/M Vol 21-25 = G:. XMODEM 
*DISKMENU.DOC’ for entire system directory (over 
2100 files now available! ). 


Garden Grove, CA 

G.F.R.N. Data Exchange RBBS, (714) 534-1547, 
Doug Laing 

24 hour operation 

300 and 1200 baud 

5 Mb of files on 4 drives 

Special interest in amateur radio and Apple/CPM. This is 
the second G.F.R.N. system. 


Larkspur, CA 

Larkspur RBBS/RCPM (415) 461-7726, Jim C. 

24 hour operation 

Up as of 3/20/81 

110, 300, 450, 710 baud; SPRINT, ITT, MCI 

2+ Mb on 2 drives 

The system carries general and new CP/M software. System 
now running MP/M and plans are afoot to install a 
second telephone line, making it the first multi-user 
remote system. SYSOP will assist others in bringing up 
MP/M remotely. 


Palos Verdes, CA 

G.F.R.N. Data Exchange RBBS, (213) 541-2503, 
Skip Hansen 

24 hour operation 

300 and 1200 baud; SPRINT, MCI, ITT 

2.4 Mb of files on 2 drives 

Standard CP/M software with special interest in ham radio- 
related programs. Soon (with MP/M) will also be reach- 
able through 450 MHz radio. 


San Diego, CA 

San Diego RCPM, (714) 271-5615, Brian Kantor 

No call back; 24 hour operation 

300 and 1200 baud; ITT, SPRINT, MCI 

2.4 Mb of files on 2 drives 

Now with 212-compatible modem; yet another 1200-baud. 


East Central 


Allentown, PA 

Allentown RBBS/RCPM System, (215) 398-3937, 
Bill Ernest 

No call back; 24 hour operation 

110, 300, 450, 600, 710 baud; SPRINT and ITT 

4.25 Mb of files on hard disk (=4 logical disks) 

General CP/M software. Bulletin board of the Lehigh 
Valley Computer Club. 


Grafton, VA 

Grafton, VA RBBS, (804) 898-7493, Dave Holmes 

No call back, no A.L.D.S; 24 hour operation 

300 baud 

200 Kb of files on 2 drives 

Carries CP/M, TRS-80 and Apple software; plans for 
setting up a dual system (on one line) with an LNW-80 
as well as the CP/M computer. Active as bulletin board. 


McClean, VA 

RLP RCP/M, McClean, VA, (703) 524-2549, Bob Plouffe 
No call back; 24 hour operation 

SPRINT and MCI 

4 (N*) drives with 640 Kb of files 

Running CBBS for messages. New system. 


Midwest 


Chicago (area), IL 

Calamity Cliffs Computer Center, (312) 234-9257 

No call back; 1400-0200 daily 

300, 450, 600 baud; ITT, SPRINT, MCI 

11 Mb of files on a hard disk and 2 floppies 

Many of the CPMUG and SIG/M programs available by 
request. 


Chicago, IL 

HUG-CBBS, (312) 671-4992, Paul Mayer, Dave Leonard 

No call back; 2300 to 1900, 7 days/week 

300 baud; SPRINT, ITT, MCI 

2 Mb of files on 2 drives 

H89-based, operated for the Heath- Zenith Users’ Group 
and with a special interest in H19- and H89-adapted 
(as well as general CP/M) software. 


Hyde Park, IL 

Hyde Park RCPM/RBBS, (312) 955-4493, Ben Bronson 

No call back; 0100-1700 daily 

110, 300, 450, 600, 710 baud; SPRINT, ITT, MCI 

2 Mb of files on 2 drives 

Special interest in hardware and software reviews, C pro- 
grams, and very recent releases of standard programs. 
SYSOP now testing substantial upgrade of RBBS 
programs. 


Royal Oak, MI 
Royal Oak CP/M, (313) 759-6569, Keith Petersen 
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Call back; 24 hour operation 

110, 300, 450, 600 baud — 1200 baud modem now avail- 
able on request; use CHAT or leave a message if you 
want the 212A switched in — ITT, SPRINT, MCI 

600 Kb on two floppy drives and 10 Mb on hard disk 
(=2 logical drives) 

Emphasis on new programs and recent updates of standard 
programs. 


Westland, MI 

Westland, MI RBBS/RCPM, (313) 729-1905, Ron Fowler 
Call back; 24 hour operation 

110, 300, 450 and 600 baud; SPRINT, MCI, ITT 

1.4 Mb of files on 2 drives 

Emphasis on very recent releases. 





Q/C leads the pack of C compilers for CP/M. For only 
$95 you get an excellent compiler that is fully supported. 
And Q/C includes the full source code to the compiler! 
The 88-page manual sets standards for readability and 
Clarity. (There is even a chapter on compiler internals.) 








Get in front of the pack: write for details of the new 
Version 1.1 of Q/C. 


eee §€=©6866 Hollister 
THECODE | suite 224 
Santa Barbara, CA 93111 
(805) 683-1585 


CP/M is a trademark of Digital Research. 





Northeast 


Lexington, MA 

Superbrain RCPM, (617) 862-0781, Paul Kelly 
1900-0700 Weekdays, 24 hours weekends 

110, 300, 1200 baud; SPRINT, ITT, MCI 

300 Kb files on-line 

Special interest in Superbrain-adapted CP/M programs. 


Bearsville, NY 

Bearsville Town SJBBS, (914) 679-6559, Hank Szyszka Circle no. 102 on reader service card. 
No call back, no A.L.D.S. 7 

110, 300, 450, 600, 710 baud 

2 Mb of files on 4 drives 

Installing MP/M. All CP/MUG programs available by re- 










AT LAST! 
A_PROFESSIONAL JOURNAL FOR ENGINEERS 
SCIENTISTS MATHEMATICIANS & STATISTICIANS USING 










quest. General CP/M software. MICROCOMPUTERS. 
PLUG INTO... 

Rochester, NY ACCESS! 
Rochester RBBS, (716) 223-1100, Arnie McGall The Journal of Microcomputer Applications 
No call back; 24 hour operation for 
110 and 300 baud; SPRINT, MCI, ITT * numerical analysis * computerized design 
1.8 Mb of files on 3 drives * math modeling — * process simulation 
S- 100 based. General CP/M software. The standard RBBS/ * statistical analysis * report generation 






RCPM system co-exists with a separate passworded 
message system called DataStar, which can be entered | 
from CP/M but runs on a separate computer. 600 baud 
capability expected soon. 


Hamilton, ON 

Hamilton Area Packet Radio Network (HAPN), (416) 335- 
6620, Stu Beal 

No A.L.D.S; 24 hour operation 

110, 300, 450, 600, 710 baud 

@? Kb files on-line 

New system. System is also linked to radio network and 
may be accessed via ham radio. Special interest in 
radio software. 


Toronto, ON 

Mississauga, Ontario RCPM, (416) 826-5394, Jud Newell 

No A.L.D.S.; 24 hour operation 

110, 300, 450, 600, 710, 1200 baud 

20 Mb hard disk now on-line 24 hours a day 

1200 baud Vadic/Bell 212A standard both supported. 
300/1200 baud modem available Monday-Friday, 
PMMI weekends. XMODEM, DISKMENU.DOC and 
MAST.CAT for details of over 3000 available files. 





The articles in ACCESS are written by workin 
engineers and scientists who share their knowledge o 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And youll 
even find ways to use your computer you hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
microcomputer into the most productive tool possible. 
Sign up W be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada & Mexico 
$20. Other $32). Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 


ign me $16 () enclosed () Bill me () Bill 
prigarey ‘Charge vi () MC 0, 0 

Exp () Send sample issue heres $3 

Name & address 

City State and ZP 


Mail to ACCESS PO Box 12847 Research Triangle Park, 
NC 27709 Published by LEDS Publishing Co., Inc. 



























(Continued on page 46) 
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CP/M Exchange (Continued from page 45) Louisville, KY 


Louisville RBBS/RCPM, (502) 245-7811, Mike Jung 
No call back; 0900-2100 weekdays, 24 hours weekends 


aa 


System now restricted to CP/M users only by use of a 300 baud; SPRINT, MCI 
familiarity question. 2.5 Mb of files on 5 drives 
Heath/Zenith-based. Emphasis on BASIC software. Some 

Toronto, ON HDOS stuff available for downloading. 
Mississauga, Ontario HUG-RCP/M, (416) 273-3011 Fort Mill, SC 
No A.L.D.S.; 1800-0600 weekdays, 24 hours weekends Fort Mill RIBBS, (803) 547-6576, Bill Taylor 
110, 300, 450, 600, 710 baud Up as of 08/15/81 
2+ Mb of files on 5 drives 


No call back, no A.L.D.S.; 24 hour operation 
Toronto Heath Users’ Group. 300 and 1200 baud 


3 Mb of files on 2 drives 
Heath/Zenith-based with 212-compatible modem. The 


South system carries ham stuff, general software, and on-line 
Hanteville AL games. The fourth 1200-baud RCM. 

NACS/UAH RBBS/RCPM, (205) 895-6749, Don Wilkes 

Call back, no A.L.D.S.; 24 hour operation DD, 


110, 300, 450, 600 baud 
700 Kb files on 4 drives ts : , 
Run for North Alabama Computer Society at University (Listing begins at right) 


of Alabama; general CP/M software. 
FORTH-79 | FORTH~-79 
Version 2 For Z-80, CP/M (1.4 & 2.x), 


Ver. 2 For your APPLE II/II+ 
& NorthStar DOS Users 


The complete professional software system, that meets 
The complete professional software system, that meets 


ALL provisions of the FORTH—79 Standard (adopted Oct. 
ett sf Ry diene! advanced icaahet . at a ALL provisions of the FORTH—79 Standard (adopted Oct. 
ete tee a i i al alan gi Lh 1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 












































FEATURES OURS OTHERS 






































































Professionally written tutorial & user manual 200 PG. 79-Standard system gives source portability. YES 
Screen editor with user definable controls. YES Professionally written tutorial & user manual. 200 PG. 
Macro-assembler with local labels. YES Screen editor with user-definable controls. YES 
Virtual memory. YES Macro-assembler with local labels. VES merece 
Both 13 & 16-sector format. YES Virtual memory. YES 
Multiple disk drives. | | YES BDOS, BIOS & cunsole control functions (CP/M). YES ———— 
Double-number Standard & String extensions. YES FORTH screen files use standard resident 
Upper/lower case keyboard input. YES file format. YES ..... 
mapiet Hafan capabilit ce Double-number Standard & String extensions. YES 
u Y capability Upper/lower case keyboard input. VES a 

Z-80 CP/M Ver. 2.x & Northstar also availiable YES rea TH I+ as. ee ghee nae VES <a 
Affordable! | $99.95 Affordable! $99.95 —____ 
te at oan es ORIG, YES Low cost enhancement options; 

Floating-point mathematics. YES epee ga “dante tytn ue 


Tutorial reference manual 
50 functions (AM9511 compatible format) 












Powerful package with own manual, 
50 functions in all, 





AMOGI eomeaunle. Hi-Res turtle-graphics (NoStar Adv. only) a 
; FORTH-79 V.2 (requires CP/M Ver. 2.x). $99.95 
FORTH—79 V.2 (requires 48K & 1 disk drive) $ 99.95 , 
ENHANCEMENT PACKAGE FOR V.2 gis onal All PACKAGE FOR V.2: eer 
loating point & Hi-Res turtle-graphics $ 49.95 ; 
COMBINATION PACKAGE $139.95 COMBINATION PACKAGE (Base & Floating point) $139.95 


(advantage users add $49.95 for Hi-Res) 
(CA. res. add 6% tax; COD & dealer inquiries welcome) 





(CA res. add 6% tax: COD accepted) 












MicroMotion 
12077 Wilshire Blvd. # 506 

L.A., CA 90025 (213) 821-4340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 








MicroMotion 
12077 Wilshire Blvd. # 506 

L.A., CA 90025 (213) 821-4340 
Specify APPLE, CP/M or Northstar 
Dealer inquiries invited. 










Circle no. 19 on reader service card. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 








Late News for 8087 Fanciers 


Intel recently dropped the price of 
the Intel 8087 numeric processor to $230 
in single-unit quantities. Some high- 
level software tools to exploit the 8087 
are also beginning to appear. In addition 
to my own company’s version of Forth 
which can use the 8087 co-processor, 
Lifeboat Associates is marketing the 
Lattice C Compiler which includes an 
8087 runtime library, and rumor tells of 
a UCSD Pascal support file named 
8087.PLS which is not yet officially 
announced. 


16-Bit Tools, Installment # 2 


The accompanying listing is an 8086/ 
88 assembly language subroutine that re- 
turns the sine or cosine of an angle to 
four significant digits. The precision is 
adequate for most graphics applications, 
and the routines are implemented by a 
combination of deduction and _ table- 
lookup techniques that are extremely 
fast. The original version of these routines 
was coded in Forth by John James and 
placed in the public domain; interested 


readers are referred to his article in Forth 
Dimensions, volume 4, no. 1. 

Readers who also need a tangent 
function can derive it easily: 
sin(x) * 10000 

cos (x) 

But watch out: finding tangents in this 
way for angles greater than seventy-two 
degrees will lead to a divide overflow, 
which causes a hardware interrupt on the 
8086/88. 

A more precise (but slower) method 
of finding sine, cosine and tangent 
through a simple polynomial expansion 
will be presented in a later column. 


Product Report: 
Microsoft RAMCard with 
RAMDrive 


This integrated combination of hard- 
ware and software can be installed in any 
IBM Personal Computer, and will marked- 
ly enhance its operation. ‘“‘RAMDrive’”’ re- 
fers to a technique of mapping a disk di- 
rectory and file structure onto a portion 
of the machine’s random access memory. 


tan(x) = 


NOW - A POWERFUL Z80 CP/M’ EDITOR FOR ONLY 


The operating system drivers are modified 
so that the simulated disk can be accessed 
by application programs like any other 
peripheral device. Since there are no mov- 
ing parts, data can be retrieved nearly in- 
stantaneously. As many as three RAM- 
Cards may be installed, yielding a maxi- 
mum of 768 Kbytes of RAMDrive storage. 


The package contains a memory ex- 
pansion board of average-quality con- 
struction socketed for 256 Kbytes with 
parity, a diskette of utility programs and 
a sixty-page manual. The product is avail- 
able in several versions and prices, de- 
pending on the amount of RAM initially 
supplied. The user can upgrade a partially 
filled card by simply plugging in more dy- 
namic memory chips. 

Installing the memory card in the 
IBM PC is quite simple, and can be done 
in a few minutes by anyone who can read 
and handle a screwdriver. The manual is 
clear and complete, and has plenty of 
helpful troubleshooting tips. 

Next, you use a memory test provid- 
ed on the Microsoft diskette to make sure 





We guarantee your satisfaction 


If after reading the manual you feel that Micro-WYL is not for 
you, send it back with the sealed diskette unopened within 30 
days. On the other hand, if you decide that it’s as good as we 
believe, we authorize you to make copies of the manual and 
diskette for your friends at $15 each. We'll put all of you on our 
mailing list for updates and enhancements. 


If you feel that you must have proportional-spacing, justification, 
etc. there are good word processors in the $75-500 range. 
But for most users, Micro-WYL represents an incredible 
bargain. It is easy to learn, easy to use, and incredibly 
powerful. Send your check today - we’ll ship within 48 
hours of receipt. 


1CP/M is a registered trademark of Digital Research, Inc. 





* WYLBUR is a registered trademark of The Board of Trustees of the 
Leland Stanford Junior University 
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Make your check out to: 


That's right. WYLBUR* editors have been popular on IBM 
mainframes for over a decade. Micro-WYL implements all of 


the common WYLBUR commands with complete features for — 


$25 plus $2 for 
postage and handling, 
IL residents add 5% 
for sales tax. 


Realworld Software, Inc. 
913 S. Fourth St. 

Suite 103 

DeKalb, IL 60115 


collecting, inserting, deleting, replacing, and mod- 
ifying text. Moving or copying text within a docu- 
ment. Copying text from external files. Global 
search and change operations. Listing control. 





‘ 0 8” D O ALTOS ies 5 
Marketing experts recommended a price of $75-300 pean type - Ru 5” ~ sir U gets es 
In fact Micro-WYL has been marketed at $250/copy. So why O NorthStar5” DD 0 Apple/Softcard 
are we Selling it at $25? We have cut our overhead to almost 
nothing-— you are getting the product directly from its authors. Name 


We believe that there is an enormous market for high-quality, 
low-cost software. We intend to make a handsome profit by 
having thousands of satisfied customers. 
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the RAMCard is working properly. This 
program is a classic of its kind. It was 
obviously written by a programmer who 
was told to make the product “‘user- 
friendly,” and who thought he could 
meet that objective with liberal use of 
reverse-video, blinking text, complicated 
screen-oriented presentations and, of 
course, using the special-function keys at 
any cost. For example, the user is asked 
to respond to one of the program’s setup 
questions by pushing either the F9 func- 
tion button or the space bar, neither of 
which are conveniently located or have 
the slightest mnemonic value. In spite of 
its veneer of razzle-dazzle, the program 
suffers from major design faults in the 
human interface that make it awkward to 
use, such as a lack of backspace capability 
should you be unfortunate enough to 
make an error in numeric entry. The pro- 
gram and documentation don’t provide 
the smallest morsel of information about 
the testing process itself, and the only 
way to terminate the test once it is 
running is to reset the computer. This is 
not my idea of a classy program. 
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After you are convinced that the 
memory card is working correctly, you 
run the configuration program, which 
patches the PC-DOS operating system 
and makes the extra memory available as 
a simulated disk device. This is a simple 
procedure and requires only a few sec- 
onds — afterwards, you can copy the re- 
vised operating system to your various 
working disks. You might wonder what 
would prevent someone from pirating the 
configuration programs and using them 
with other companies’ less-expensive 
memory cards. Never fear, Microsoft has 
provided against this eventuality: part of 
the necessary software is in a pro- 
grammed read-only memory chip in- 
stalled right on the RAMCard. 

Using the RAMDrive capability can 
result in astonishing improvements in per- 
formance for programs which are disk 
I/O bound. For example, a simple Forth 
program to sequentially read through a 
100 Kbyte file, accessing it as 1024-byte 
records, completed in 24.9 seconds using 
a regular 5%4-inch floppy disk drive but 
only required one second on the RAM- 
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Drive. 

The RAMCard and RAMDrive pack- 
age costs $495 with 64Kbytes installed, 
and each additional 64Kbytes costs you 
$200 from Microsoft up to a grand total 
of $1095 for a complete 256Kbyte card. 
Here is where a little careful shopping can 
save you a bundle of money. I bought the 
minimum 64Kbyte card from Microsoft 
via Computerland, and obtained the 
twenty-seven dynamic RAM (type 4164) 
chips necessary to fill up the card for 
$227 from BG Micro in Garland, Texas. 
Thus, I saved $373 as compared to buy- 
ing the RAM expansions from Microsoft. 

Note that if you do not want the 
RAMDrive feature of this product, there 
are many memory cards available from 
reputable companies at considerably 
lower cost. But if you really need in- 
creased speed from your IBM PC, but 
aren’t yet ready to take the plunge on a 
hard disk, then this product is great! 


(Listing begins at right) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 530 


“be 


Pup 
- Nes 
~“f a. 

e ; =e 
i * e 
° Ae 

e ‘ 
, Se 


* ° to 
oe 


ITHACA =“ 


’ 
L 
- 


VECTOR <a oe: 
GRAPHICS aati 
ARM: 


ee 
© 


. 
\~ 


the FRIENDLY COMMUNICATIONS SOFTWARE that has been EASY TO USE since 1978 


e Auto Dial + Answer Turnkey package with BBS 

¢ COMMX Smart Terminal and File Transfer w/ 
Mainframe Protocols, CRC16 BiSync + Batch 

¢ CONSOLX Remote System Access Controller 


sHAWKEYE GRAFIX 


Bulletin Board System w/Data File Manager 
Utilities included for KeyMacros + Sort Dir 
Fortran available for Mainframe BiSync 
Detailed User Manual Available For $20 


CPU License $150 Object or $900 Source 


Circle no. 141 on reader service card. 


Foy i e-vol am Goll) ame Motor] Em DY-F-) Pte ro) at OF) | Mey an "hdl toe 
or F 
23914 Mobile, Canoga Park, Ca. 91307 U.S.A. e 213/348-7909 





elaclaliilt a= 








8086 Trig 


(Text begins on page 51) 


title "Trig Lookup Functions’ 
pagewidth 79 


Trig lookup functions for 8086/88 
adapted by Ray Duncan from a public 
domain FORTH routine written by John James. 


gPERT-3001 $40 


and ’cos’ to reduce an angle into the 


} 
} 
} 
3 
: 
j 
} *Trig”’ is a common routine used by ’sin’ 
i 
} range 0-90 degrees then extract the 

} 

} 

t 














Risk Analysis gRISK-4001 $160 * 
appropriate function value from the table. es Activity Selection Via < 
e0eo anDe b baie on Multiple Objectives — gPRIORITY-5001 $160 
) rigs mov x, ar yb» <- degrees me ob: 
0002 B3FESA cmp bx,90 if > 90 degrees “sag bial a a 
0005 7EOS oOO0D jle trigi preduce the angle ‘adorn rduiiteeh aah 
0007 B1EBB400 sub bx, 180 ee ne ~ s 
QOOR F7DRB neg bx 
QOOOD DIES trigi: sal bx, 1 ytable index = 2tdeg,. 
INOW extract value 
QOOF 2ZESBSE73F00 Mov ax, sintbl [Cb»x] Kindest 
0014 C3 ret yback to caller +. Personal dddvess Bild 
} Mail Label 
§ Cosine lookups add 90 degrees to oes 
} argument and use sine lookup. 
} call withs ax = degrees GALACTIC 
} returns: a = cosine k 10000 Sof Publick 
} other registers preserved. oltware Publishers 
’ 
‘ Berkeley, CA 94704, USA 
10 = 50 1) y; ’ 
OO1S OS5A0C aid add ax, 90 (415) 845-5396 
s * 
3} Sine lookups reduce to angle in 
} range 0-359 degrees, then call 
y “trig’ to extract function value 
1 from table. Circle no. 23 on reader service card. 
} Call withys ax = degrees 
} returns: ax = sine k 10000 
) other registers preserved. 
’ 
OO18 S2 sins push dx jsave registers 
0019 533 push b» 
COLA 99 cwd 3deg -> double prec. 
OO1B BR&801 mov bx,360 yreduce angle to USE FORTH! 
OQO1E F7FR idiv bx yrange 0-359 degrees = 
O0O20 BEC2 mov ax, d» let ax=remainder 
0022 OBCO or ax, ar jis angle negative? : 
0024 7903 0029 ins sin2 }nNo, Jump Join the 
0026 0568601 add ax,360 jyes,make it positive 
0029 3DB400 sin2: cmp ax,180 jnow reduce angle to FORTH Interest Group 
QO2C 7EOR 0039 jle sins yrange 0-180 degrees i 
OO2ZE 2DB400 sub ax,180 yangle was > 180 deg. and receive FORTH 
OO231 ESCCFF 0000 call trig plook up function value Dimensions, a bi- 
0034 F7De wee dk monthly magazine. 
0036 E9O300 0O3C jmp sin4 
0039 EBC4FF 0000 sinks call trig pyangle was <= 180 deg 
OO3C SB sin4: pop b» prestore registers The best way to learn the 
©O3D 5A pop dx 
OO3E C3 rat pbhack to caller FORTH language and to 
‘ 
} lookup table for trig functions Bat of uae iehigh 
, evelopments is to 
OOSF 9000 sintbl dw 1) }9 degrees os 
0041 AFOO dw 175 a join the FORTH Interest 
O043 SDO1 _ pith he Group... .over 2,500 mem- 
0045 ORO2 dw S23 33 ; 
0047 BAOZ dw 698 14 bers, worldwide. $15.00 
0049 6803 dw 872 5 . 
Some Daoe hs 10458 US, $27.00 Foreign. Send 
004D C304 dw 1219 17 check or money order to: 
QO4F 7005 dw 1392 38 
0031 1006 dw 1564 9 
0053 C806 dw 1736 y10 
OoOss 7407 dw 1968 y1i1 
0057 1FO08 dw 2079 p12 
00359 CAB dw 2250 p13 
OSE 7309 dw 2419 114 FORTH INTEREST GROUP 
OSD 1COA dw 2588 015 PO Box 1105 
OOSF C40A dw 2756 316 
0061 &COR dw 2924 p17 San Carlos, CA 94070 
0063 120C dw 3090 318 
0065 BBOC dw 3256 }19 
0067 SCOD dw 3420 320 
(Continued on next page) Circle no. 87 on reader service card. 
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8086 Trig 


(Listing continued, text begins on page 51) 


0069 
OO6R 
OOé6D 
QOO6F 
0071 
0073 
0075 
0077 
0079 
OO7R 
007D 
OO7F 
ooes1 
0083 
o08ss 
0087 
0089 
QOOBR 
OosD 
OOBF 
O09 1 
QO9S 


o095 
0097 
0099 
OO9R 
OoO9D 
OO9F 
OOAL 
OOAS 
OOAS 
OOA7 
QOAD 


OOOE 
AZOE 
430F 
ESOF 
8210 
2011 
BCil 
S7i2 
FO12 
6613 
1E14 
B214 
4615 
Dei5 
66816 
F616 
8217 
odie 
9516 
1019 
A119 
231A 


ASIA 
2518 
9F1iB 
i91ic 
921C 
071D 
7BiD 
EC1D 
SBiE 
CBiE 
S21F 


3584 
3746 
3907 
4067 
4226 
4384 
4540 
4695 
4846 
5000 
5150 
5299 
5446 
5592 
5736 
56878 
6018 
6157 
6293 
6428 
6561 
6691 


6820 
6947 
7O74 
7193 
7314 
7431 
7547 
7660 
7771 
7880 
7986 


pai 


25 


y 30 
poi 
$32 
g5S 
334 
p35 
336 
337 
}38 
pao 
340 
341 
342 


343 
ja 
345 
346 
347 
346 
$49 
350 
yol 
pu2 
953 


QOOAB 9AIF 
©OAD O020 
OOAF 6220 
OORL C320 
OORBS 2021 
QORS 7C21i 
QOOR7 D421 
OOBS 2A22 
OOBB 7D22 
OORD CE22 
QOBF 1C23 
OOC1 6723 
QOOCS3 AF2ZS 
OOCS FS23S 
O00C7 3824 
OOCS 7824 
OOCER BS24 
OOCD EF24 
OOCF 2725 
OOD SR2S 
OOD3 BD25S 
QOODS BR2S 
OOD7 E725 
OOD9 1026 
OODB 3526 
QODD 5826 
OODF 7826 
OOEL 9526 
QOES AF2ZS 
OOES C526 
QOE7 D926 
QQOES EAZS 
QOOEBR FB26 
OOED 0227 
OOEF OA27 
OOF1 OE27 
OOFS3 1027 


dw 8090 
dw B1i92 
dw 8290 
dw 8287 
dw 8480 
dw 6572 
dw 8660 
dw 8746 
dw 8829 
dw 8919 
dw 6988 
dw 9063 
dw 9135 
dw 9205 
dw 9272 
dw 9336 
dw 9397 
dw 9455 
dw 93511 
dw 9563 
dw 9613 
dw 9659 
dw 9703 
dw 9744 
dw 9781 
dw 9816 
dw 9848 
dw 9877 
dw 9903 
dw 9925 
dw 9945 
dw 9962 
dw 9976 
dw 9986 
dw 9994 
dw 9998 
dw 10000 
} 
end 


354 
er) 
356 
357 
358 
159 
360 
361 
362 
365 
364 
165 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
S77 
378 
379 
780 
3681 
382 
38S 
384 
385 
386 
387 
388 
389 
390 degrees 


End Listing 













The XASM86 disk contains 15 files including: 


THE CROSS-ASSEMBLER 


MNEMONIC TABLE FOR XASM86 


THE XASM86 LOADER 


SOURCE FILE OF I/O INTERFACE TO CP/M 


DEMONSTRATION PROGRAM FILES 


A FILE COMPARE UTILITY 


XASM86 features include: 


e@ MATH SUPPORT 
e I/O 


e LABELS 

e INCLUDE 

e ERROR HANDLING 
e COMMENTS 


e@ SYMBOL TABLE 


The above package including 100+ pages of documentation is yours for only $200.00 (postage paid USA & Canada). 
@ XASM86 disk formats include standard 8” CP/M or CP/M on Micropolis 
e@ Special Source Code Package available. Contact us for details. 


Also: Jonathan Mills’ original Micropolis MDOS source files available on Micropolis or standard 8’ CP/M. 
Executable under Micropolis MDOS only. Price $50.00. 


RD SOFTWARE 1290 Monument St., Pacific Palisades, CA 90272 (213) 459-8419 


CA residents add 612% sales tax: *CP/M™ of Digital Research Corp. 


Circle no. 244 on reader service card. 
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Now You Can Develop 8086/8088 Code on Your 8080/Z-80 
with Jonathan Mills’ XASM86™ Cross-Assembler 


Bridge the gap between the 8080/Z-80 & the powerful new 8086/8088 with XASM86. This highly 
acclaimed cross-assembler as described in the June 1981 & April 14982 issues of Dr. Dobb’s Journal is available now 


Intel 8087 support included 


Shipped with standard CP/M* 


i/O installed 


All characters significant (200 + 


possible) 


May nest included source files 


up to 4 deep 


Over 100 error & warning mes- 


sages 


Selective display on outpuf 


listings 


Optionally displays, sorts & 


groups by usage 
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OF INTEREST 


by Michael Wiesenberg 








A Potpourri of 
Good-Priced Hardware 


The three-inch Winchesters are com- 
ing! One of the first is from SyQuest 
Technology. Their $Q306 they claim is 
“the industry’s first 3.9-inch (100mm) 
removable cartridge Winchester disk 
drive.””’ SyQuest is aiming at the OEM 
market, but the price of $400 per unit in 
large quantities means we can expect to 
see these five-megabyte Winchesters arrive 
reasonably priced. The cartridges will sell 
in quantity for $30 each. The small size 
of this unit (1.625 inches tall) allows two 
Sy Quest drives to fit into the same space 
as one 5.25-inch Winchester or mini- 
floppy drive. We should see these units 
integrated, probably stacked two at a 
time, into the next generation of portable 
computers. Reader Service No. 306. 

Monitor the status of the ‘“‘seven 
most important’? (we are told) RS-232 
lines with, what else?, RS-232 Tester 
from B & B Electronics. A female 25-pin 
connector at one end and a male connec- 
tor at the other let you attach the Tester 
directly to the interface and leave it per- 
manently in the line, with LEDs constant- 
ly displaying status, but not interfering 
with data transfer ability. $39.95 post- 
paid. Reader Service No. 316. 

The SSB-MPF Speech Synthesizer 
Board from Etronix provides a 400- 
word vocabulary for the MPF-1 Micro- 
Professor, the Z-80-based single-board 
computer-in-a-book described in a pre- 
vious column. The board does its input/ 
output with the Micro-Professor’s key- 
board and speaker, and features a 4K 
time clock and speech utility EPROM, 
two EPROM sockets that can be used to 
expand the vocabulary, adjustable pitch 
and volume controls, a power adaptor, 
all necessary connection accessories and a 
manual. $129. Reader Service No. 326. 


A Gallimaufry of 
Inexpensive Software 


AUTODIFF is a file difference detec- 
tor for CP/M by the Software Toolworks. 
Not only does this comparison utility list 
differences between files or produce a 
copy of the file with all changes flagged, 
it also reports insertions, deletions and 
changes, listing them in ASCII or hexa- 
decimal format to a terminal, printer or 
disk file. Filters can be set to ignore non- 
printing characters or to display control 
characters. AUTODIFF can be used on 
most files and costs $29.95 (plus $2 post- 
age and handling) on 5-inch disk for 


Osborne I and Heath/Zenith, and 8-inch 
CP/M disk. Reader Service No. 346. 

Disk-Edit is a screen-oriented disk 
editor from Supersoft for CP/M _pro- 
grams. It can call up files that, according 
to Supersoft, “fare not even accessible 
with a normal text editor, then edit those 
files in either ASCII or hexadecimal nota- 
tion.”” The program loads a one-kilobyte 
section of a disk (hard or floppy) into a 
buffer, and then displays a dual-view 
“window” into the buffer. On the left are 
the hexadecimal values of each byte; on 
the right, the ASCII. Change either, and 
the corresponding value changes instant- 
ly in the other. Simple commands move 
the cursor up, down, left, right, to the 
next page or screen, to the start of the file 
and so on. There are also string searches 
and many other functions. Disk-Edit 
has a “terminal definition package” and 
can be configured to most CP/M systems. 
$100, or $15 for the manual only. Read- 
er Service No. 356. 


You probably thought that a text 
editor for the IBM Personal Computer 
would be expensive, but WINDOW, a 
full-screen text editor program from 
Intellect Associates Inc., costs $150. It 
uses all the screen and keyboard capabili- 
ties of the PC, including single-stroke 
editing commands with the function 
keys. It’s not quite a word processor, but 
WINDOW does most of the things a word 
processor can, such as easily move the 
cursor, scroll in four directions, do global 
search and replace, insert and delete char- 
acters and lines, move, copy, split and 
join lines and edit text files larger than 
available memory. WINDOW runs under 
IBM-DOS, comes on 5.25-inch diskette, 
with documentation, and requires 64K, 
one drive, and a monochrome display and 
adapter. To turn WINDOW into a real 
word processor, add Intellect’s PCTEXT 
for $100, and get a text processing pack- 
age that indents, centers, controls line 
Spacing and margins, justifies, inserts 
headings and footings, numbers pages, 
underlines and merges documents. It, too, 
runs under IBM-DOS, requires 48K, one 
drive and a printer. And while we’re talk- 
ing about Intellect Associates, they offer 
for the same configuration a data manage- 
ment system, DMS, a self-prompting, 
menu-driven system with which users 
create data entry forms on the screen 
in user-specified formats, and then enter, 
retrieve, modify, correct and delete data 
with the forms and print reports. The se- 
quential ASCII data base files can be ac- 


cessed by any language. DMS is written 
in C88 (Intellect Associates’ one-pass- 
compiler subset of C that costs $250, 
generates compact 8088 machine code 
and comes with a linker), which makes it 
run, they say, very fast, and also makes 
good use of the PC’s screen and keyboard 
features. It requires 48K, one drive (two 
recommended) and monochrome display 
adapter. Reader Service No. 366. 

Cross-assemblers can cost a bundle, 
but here’s one for the Zilog Z8 that costs 
$150. SYSTEM-Z8, by Allen Ashley, for 
CP/M, includes a down-loader for the 
Zilog Z8 Development Module to trans- 
mit developed programs for in-circuit 
test. You get a macro-assembler with 
macro and conditional assembly and 
chaining, interactive editor/assembler, 
text editor, cross-reference generator, 
complete documentation and user sup- 
port by mail or phone. Current SYSTEM- 
Z8 owners can phone for a free update. 
Reader Service No. 376. 

Ensign Software offers a whole stack 
of reasonably-priced software for the 
IBM PC. String Sort is a machine-language 
sort routine for BASIC programs that 
sorts 1000 variable-length strings in less 
than four seconds, and 5000 three- 
character strings in fourteen. $24.95. 
Electronic Disk uses RAM as an “elec- 
tronic disk drive’? and printer spooler. 
The entire contents of a drive are dumped 


Programmer’s Aid 
Package For 
CP/M Users 

$45.00 


Unix-flavored utilities designed to make 
documentation and text processing easier 
Utilities include: text formatter, ‘‘pretty’’ 


printer, file transliteration, word and character 
counting, file encryption/decryption and more - 


9 programs in all 

For CP/M 2.2 8”’ single sided single density disk 
systems -48k RAM or more 

Users Manual only: $3.00 (applicable towards 
purchase) 


Send check or money order to: 


6708 Melrose 
Los Angeles 
California 90038 


L.A. Software 


California residents add sales tax 
CP/M is a trademark of Digital Research 
Unix is a trademark of Bell Telephone Labs 
Copyright 1982 L.A. Software 
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BDOS ERROR 
ON B:BAD SECTO 





Before disk errors ruin your work again order BADLIM. 

8 BADLIM assures the reliability of your CP/M 
computer. 

® You can use your disks 10 times longer without 
losing your data AND your time. 

® BADLIM checks thoroushly your disk marking all 
the blocks which have defective sectors. The 
operating system will know that those sectors 
should be skipped. 

® BADLIM is the only program that gives protection 
for soft and hard errors. 

® The first time BADLIM will list which files in your 
disk are on bad sectors, so you can take action to 
correct it. 

e But thereafter the bad areas in your disk will be 
automatically by-passed. 

e For CP/M 1.4 single density and for CP/M 2.xx of 
any format and density. It is a must for Winchester 
as the media cannot be replaced. 

BADLIM cost only $73. Whatever the reason you have 

to use a computer you need BADLIM. Contact your 

dealer or call us today: 

BLAT R&D Corp., 8016 188th. St SW, Edmonds 


WA 98020. Phone:[206} 771-1408 
DEALER INQUIRIES INVITED. BADLIM 
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NAME 
Plum Hall Inc 


SYNOPSIS 
High quality technical training. Our 
workshops are intense  full-mastery 
courses, rigorously tested with many 
customers, and cost effective for your 
projects. 


TRAINING 
C Programming Workshop 


Idris* Workshop 

Advanced C Topics Seminar 
UNIX* Workshop 

Pascal Programming Workshop 


Public courses: $1000 per person. In- 
house courses: $9000 for 15 people. 


PUBLICATION 
C Programming Standards and Guide- 
lines: readability and portability of C 
code. $20 per copy. 
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to the memory-resident electronic disk drive, so that disk ac- 
cess programs do superfast I/O. You can also use the computer 
for other tasks while printing large files. $69.95. ISAM Data- 
base accesses up to seven data files simultaneously by full or 
partial keys using the Jndexed Sequential Access Method, and 
is easily called from BASIC. It sorts 5000 records in twelve 
seconds. A demonstration of ISAM Database in the form.of a 
complete name and address program is included in the $69.95 
price. Cross Reference gives a complete cross-reference listing 
of a BASIC program saved in either ASCII or binary format. 
The listing includes all variables alphabetically with all line 
number references, line numbers referenced by other state- 
ments and all line numbers with PRINT and LPRINT. $24.95. 
All programs require one drive, DOS, disk BASIC, either 
monochrome or color/graphics and 48K (except Electronic 
Disk, 128K). Reader Service No. 386. 


Central Point’s real bargain is their FILER disk utility for 
drives of any number of tracks. It checks drive speed, tests the 
drive, copies a disk in thirty-five seconds; and has a file mana- 
ger that catalogs or copies files, disks and DOS; deletes, locks 
and unlocks files; and changes the name and file type of the 
boot program, all for $19.95. Reader Service No. 406. 


DD, 


PLUM HALL 


Spruce Ave and Orchard 
Rural Route 2 Box 235P 
Pleasantville, NJ 08232 


609-927-3770 
SOFTWARE 


Plum Hall Interface Library (PHIL): 
printf, getchar, and other portable UNIX 
functions for systems using Whitesmiths 
compiler. $350 for single-CPU source 
code. 


*TRADEMARKS 
Idris: Whitesmiths, Ltd. 
UNIX: Bell Laboratories 


FALL SCHEDULE 
San Francisco 
New York City 
Plum Hall, NJ 
Los Angeles 
Boston 
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Question: When can I use Ada? 





Answer: NOW eae 
with JANUS. 


Ada is available now for your micro-computer. 
JANUS is a subset of Ada which includes those features sorely missed by 
programmersson mic li He ‘li e list to help you decide for yourself. 
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+ _Inexpensive Up 
5 4B ! 






The language 
that is based 
on the past 
but looks to 
the uses of 
the future. 


heed to do fat 








(requires 56K serianya — $300.00 
8086/8088. CP/M-86 or MS-DOS (requires 96K memory) — $400.00 





CP/M, CP/M-86, MP/M-86 are trademarks of Digital Research, Inc. 86-DOS is a trademark of Seattle Computer Products 
* ADA is a trademark of the U.S. Department of Defense SB-86 is a trademark of Lifeboat Associates 
MS-DOS is a trademark of Microsoft Apple Softcard is a trademark of Microsoft, Inc. 
He ©Copyright 1982 RR Software 
a FTWARE soecialsis in slate of the art programming 
P.O. BOX 1512 MADISON, WISCONSIN 53701 (608) 244-6436 
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Clinic (Continued from page 9) 





well, but we’d rather see some evidence. 
Surely somebody out there has a PC, a 
suspicious mind, experience with the 
typical output of translator programs, 
and a few hours to spare. The MSDOS 
command DEBUG will disassemble stor- 
age. Use Ctrl-PrtSc to start a log of its 
output on the printer. 

Actually, there are very good reasons 
why Microsoft would translate an existing 
interpeter rather than write a new one. 
Their MBASIC is a mature, well-debugged 
piece of code. Translation would let them 
produce a reliable product quickly and 
cheaply. Reliability, quick development, 
and low cost are three qualities that are 
conspicuously absent when you build a 
large piece of software from scratch. One 
can see how the ‘“‘technical’’ considera- 
tion of execution speed could easily take 
a back seat to these desirable ‘“‘manage- 
ment”’ criteria... . 

Burke Smith of Shawnee Mission, 
KS, has found a bug in that mature 
product, MBASIC. It only seems to sur- 
face in version 5.1 of BASIC-80, and in 
IBM version D1.00. Try this sequence: 


LET A#=0 
LET A#=-A# 
PRINT INT(A#), FIX (A#) 


Smith claims that in the noted versions 
(but not in the more common versions 
4.51 and 5.2) two answers of -1 will be 
diplayed, ‘“‘rather than the zeroes that any 
reasonable person would expect.” 

Smith goes on to blame the problem 
on Microsoft’s choice of binary floating- 
point rather than decimal float using a 
BCD representation. We think that’s a red 
herring. We’ve seen a lot of misguided 
complaints along this line; the writers 
seem to think that there is something pe- 
culiar about the binary number system 
that makes it more prone to truncation 
errors (“round-off errors’’) than decimal 
is. Tain’t so; a digit is a digit, no matter 
what your radix. The problem is the lim- 
ited precision of the representation, not 
the number base. A decimal representa- 
tion of a real number is just as prone to 
truncation errors as a binary, octal or 
hexadecimal one is. 

There are standard techniques that 
will mitigate the effect of truncation er- 
rors. Hardware designers can incorporate 
an extra digit of precision in the tempo- 
rary results held in machine registers, 
and round any bits that turn up in such 
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a “guard digit” back into the result 
before storing the result. Few people 
remember now, but the initial design for 
the IBM 360 line lacked guard digits in 
the floating-point ALU; the first ma- 
chines had them added in the field as en- 
gineering changes. Good scientific calcu- 
lators get the same effect by carrying 
several low-order digits that don’t show 
in the display. MBASIC could have 
achieved the same effect in software; we 
don’t know if it tries to. 

A decimal representation is better in 
just one way: it will get truncation errors 
on the numbers that people expect it to. 
Nobody is too surprised when the ex- 
pression ((1/3)*3) does not yield a result 
of 1.0; most people can picture the string 
0.333333... being truncated and multi- 
plied by 3 to yield 0.999999. The trouble 
with binary (or any other radix) is that 
some fractions that have finite represen- 


tations in decimal become repeating ““dec- 
imals’? in another radix (and vice versa). 
When the system converts such a con- 
stant to its internal radix, it loses some 
precision before any calculations are done 
at all. For commercial arithmetic, the 
only answer is to use a fixed-point deci- 
mal representation like the ones available 
in PL/I and COBOL compilers. Floating- 
point arithmetic should never be used for 
commercial calculations, no matter what 
radix it is based on. 

John Palmer of Boonville, CA, is 
grumpy about his new CP/M-86 system, 
which he procured from Godbout along 
with the Godbout 8085/8088 dual pro- 
cessor board. “The Godbout hardware is 
very good,” he writes. “If you buy all the 
stuff from Godbout it will run.” How- 
ever, problems arose when he had to 
modify the Godbout BIOS. The first 
problem was that “the BIOS is very hard 


ee 


SUBMIT.COM 


; A patch to SUBMIT.COM which forces it to open an existing 

: $$$.SUB file for appending, rather than erasing it. The 

; CCP reads that file in reverse order. Thus a SUBMIT within 
> a submitted file will “push" new records onto the end of the 
- file, from whence the CCP will "pop" them. The result is 

> correct execution of nested SUBMIT commands. 


subfcb 


equ O5BBh > FCB for $$$.SUB 

BDOS equ 0005h 

OPEN equ 0211H ; open-file subroutine of SUBMIT 
org 022Dh > the erase-file routine of SUBMIT 


> It would seem that this location is called when an attempted 
; open of $$$.SUB succeeds, showing that the file exists. 


; Previously, this code would have erased the file. 
opsl lda subfcb+15 ; open ok if extent not full 
ral ; extent full if record count=>80h 
rnc ; exit if count < 80h 
1x1 h, subfcb+12 ; extent number in FCB 
inr m ; try the next extent 


+ Code to invoke or re-invoke the create-next-extent routine 
> of SUBMIT--which will call "“opsl" above if the extent exists? 
ops 1lxi d,subfcb ; open first (next?) extent 

jmp create 


+ Routine to create the $$$.SUB file 


org 025Dh 

create call OPEN > test $$$.SUB by opening it? 
inr a ; FFh -> OOh if open fails 
jnz opsl ; do above code if file exists 
x3 d,subfcb ; file does not exist, make it 
mv i €,22 
call BDOS 
adi Olh ; set carry flag if retcode=FFh 
ret 


Replacement code for original logic to open $$$.SUB 


org O4FEh 

call ops ; open last extent of $$$.SUB 

je 0517h ; error if open failed 

lda subfcb+15 ; use the FCB "record count" 
sta subfcb+32 ; ..to set the "current record" 
jmp 051Dh ; continue with original code? 
end 
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to modify without the Sorcim anti-Intel 
ACT assembler.”” That would make us 
grumpy, too. There is no excuse for dis- 
tributing a BIOS that requires an assem- 
bler that isn’t part of the distributed sys- 
tem. “The source code for the BIOS is 
on the diskette,’ Palmer reports, ‘“‘but 
you cannot use it until you buy Sorcim’s 
ACT-86 for $175.” Palmer thinks this is 
a tacky way of selling assemblers, and we 
agree. | 


Passing the Hat 


We’re scraping the bottom of the 
mailbag again, readers. You’ve all been 
very flattering in your praise of this col- 
umn, but you aren’t contributing. We 
need questions, like Knipp’s. Pitfalls and 
Warnings, like Palmer’s. Bugs, like 
Barker’s. Patches, like Pasky’s. Discov- 
eries, like Hammond’s. Puzzles. Confu- 
sions. Grumps. Cheap software. Material ! 
Please? 

DD 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 526 


MICROSTAT® - Release 3.0 
MICROSTAT® + baZic® = PERFORMANCE 


The best just got better! MICROSTAT has been the 
leader in the statistics field for microcomputers since 
1979, and the new release 3.0 outperforms and is 
noticeably faster than previous versions. Just a few 


of the features include: 
GREATER ACCURACY 


BCD with up to 14 digit precision; 


PROGRAM ENHANCEMENTS 
Missing data capabilities and many more: 


FASTER EXECUTION 


Calculation time greatly reduced: 


DYNAMIC FILE ALLOCATION 
Data can be inserted, added, or deleted: 


SPECIAL PRICE: 
For a limited time get MICROSTAT plus baZic 
complete with program disk and documen- 
tation for each for $395.00, save $50.00! 


The MICROSTAT - baZic version requires: a Z80 CPU, 
CP/M™ and 48K of memory. Available formats: 8” SD 
disk or 5%” North Star only. Check with your dealer for 
other formats. Also available for: Microsoft’s Basic-80™, 
North Star DOS and IBM. For more information, call 


ECOSOFT INC. 


or write: 


P.O. Box 68602 
(317) 255-6476 


MICROSTAT is a registered trademark of ECOSOFT, INC. 
baZic is a registered trademark of MICROMIKES, INC. 
CP/M is a registered trademark of DIGITAL RESEARCH 
Basic-80 is a registered trademark of MICROSOFT 
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Letters (Continued from page 6) 





by DDJ readers. First, however, I at- 
tacked its primary problem: it’s slow. 


I studied the code for a while, and 
decided to change the global symbol table 
from a linearly searched list to a hash 
table. I also put the macros in the global 
symbol table, with pointers into the array 
of macro definitions. Since the original 
code was well-structured, changing algo- 
rithms was not difficult. 


I changed “‘numglbs’’ from 300 to 
512 (a power of two), “SYMTBSZ” from 
5040 to 8008, and introduced “#define 
MASKGLBS 511”’’. I introduced “‘#define 
MACRO 5”’, giving a new possible entry 
for “‘ident’’. Since I’m putting the macro 
names into the global symbol table 
rather than the macro table, I changed 
““macqsize” from 1000 to 500. “‘macptr’’ 
has to be initialized to 1 instead of 0. 
(Initializing it to 0 causes a subtle bug af- 
fecting only the first macro. I’ll leave the 
details as an exercise for the student.) 









RUNIC 80 


Inc 


BLAZEI/LIB 










BLAZEI/IO 





PHONEDEX I 


Pascal/MT + source 
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GO sensive 


ENGINEERING 


Your introduction to the world of threaded-code interpreters. A complete programinng 
aguas which sets you down easy in the realm of stacks, words, dictionaries, and RPN. 
udes 60 page user guide, reference card, and numerous sample programs. 


Order RN80 for CP/M in 8”SD, 5” Apple ][, 5” Heath Org 0 --- 


Get a head start on your next Pascal/MT + application with our library of utility routines. 

Number/string conversions, error trapping, data entry routines, directory search, fast 

rename, many more. Included is TLIB, a linkable module defining cursor control for most 

ae terminal devices including Soroc, Heath, Lear-Siegler, Xerox, ISC, SOL, and TRS80-2. 
ets you run a single application on many terminals without changing the code! 


Order BLLB for CPIM in 8” SD, 5” Apple ][ --- .ERL $75 | Source $200 


Cut the size and increase the speed of your Pascal/MT+ code with our assembly-code 
implementation of all MT + file I/O functions and procedures. (MT +’s file I/O is written in 
Pascal.) Includes a text file APPEND procedure. 


Order BLIO for CP/M in 8” SD, 5” Apple ][ --- .ERL $75 


An “electronic little black book” which will store, search, list, and (with an autodial modem) 
dial telephone numbers for you. Includes a terminal emulator for communicating with 
CBBS and timesharing systems, user-defined screen ome mailing label print, and 3“X5” 
address book pase print functions. Currently supports 

or modem/dialer code is included. 25D 


Order PDX1 for CPIM in 8” SD, 8” TRS80-2 DD --- $49.95 


Any Starside Engineering user guide my be purchased for $15, creditable against full package. 
We also offer a growing line of software for the IBM Personal Computer. 


Terms: add $3 P&H. NYS residents add 7% sales tax. MC-VISA accepted; evenings best for phone orders. CPIM, PascallMT +, 
Apple ][, Smartmodem, and TRS80 are registered trademarks. 


I added the following initializing 
code to main(): 


glbptr=STARTGLB; 

while (glbptr<ENDGLB ) { 
*glbptr=0; 
glbptr=glbptr+SYMSIZ; 


glbptr=STARTGLB+S YMSIZ*5; 
/* clear global symbols 
ay 


“dumpglbs()” needed the declaration 
“int i;’, and the top of the loop changed 
to 


i=NUMGLBS; 
while(i--){ /* 6/19/82 
if (*cptr){ 

if ((cptr [ident] !=function) 
&(cptr [ident] !=MACRO) ) 
/* do if anything but 
function or macro 
jrvz 6/19/82 */ 


jrvz */ 


I introduced a simple hash function: 


hash (sname) 
char *sname; 

{ int h,es 
h=*sname; : 
while(c=*(++sname)) h=(h<<1l)+c; 
return h; 


FOUR STARS FOR CP/M 










$49.95 

















Fi Smartmodem; PMMI soon. 
" drives and 48K required. 
















Starside Engineering 
PO Box 18306 
Rochester NY 14618 
(716) 461-1027 
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Something New 


When you can’t find your problem, 
let ACTIVE TRACE show it to you! 
See inside your program as it’s 
working! Just as important, see 
inside your program when it’s not 
quite working! 

New to Basic? ACTIVE TRACE will let you 
see what Basic does as it does it! ACTIVE 
TRACE displays the line number, name, 
and current value of the variables and 
functions you choose, as they are 
encountered in program flow. 


Something Old 


Though less exciting than harnessing the 
power and speed of your computer to find 
mistakes, using your computer to avoid 
mistakes in the first place is equally 
valuable. Cross-reference utilities have 
been around for a long time. Most 
programmers would not attempt to work 
without them, and we don’t know why they 
have not become more well known and 
understood among Basic programmers and 
educators. ACTIVE TRACE produces 
complete cross-reference maps and 
explains their use and importance. 


Active Trace 


lf you have great intuition and are well- 
disciplined, then you'll want ACTIVE 
TRACE. But if you’re like the rest of us, 
you need ACTIVE TRACE to: 
WUnderstand and modify programs you 
did not write 
improve your programming skills 
Mminimize program development time 


$125.00 


complete with primer to help you use 
ACTIVE TRACE to improve your 
programming. 

Why pay more for cross-reference utilities 
alone when you can have ACTIVE TRACE, 
the new easy to use programming 
environment for the Microsoft family of 
Basic interpreters. 


SOFIVVAIRE 
SOF IWATE 


DIGITAL MARKETING . 


CSc VAIS II NG" 





DIGITAL MARKETING CORPORATION 


2670 CHERRY LANE @ WALNUT CREEK @ CALIFORNIA @ 94596 
(415) 938-2880 @ Telex 17-1852 (DIGMKTG WNCK) 


ACTIVE TRACE is a Trademark of The Data Works. 
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I then rewrote the following routines 
where boxes indicate changes): 


findglb(sname) 
/* cptr is set to entry if found, 
or appropriate empty slot if not */ 
char *sname; 
{ int: hy 
h=hash (sname ) &MASKGLBS ; 
cptr=STARTGLB+h 4S YMS IZ; 
while (Q== 
astreq (sname,cptr,namemax) ) { 
if (*cptr==0) return 0; 
cptr=cptr+SYMSIZ; 
if (cptr==ENDGLB )cptr=STARTGLB ; 


return cptr; 


addg1b(sname,id,typ, value) 
char *sname,id,typ; 
int value; 
{ char *ptr; 
if (findglb(sname))return cptr; 
if (glbptr>=ENDGLB) 
{ error("global symbol table 
overflow"); 
return 0; 
} 
ptr=cptr; 
while(an(*ptrtH = *snamet++) ); 
/* copy name */ 
eptr [ident ]=id; 
cptr[type]=typ; 
cptr[storage]=statik; 
cptrloffset]=value; 
cptr [offset+l]=value>>8; 
glbptr=glbptr+SYMSIZ; 
return cptr; 


addmac () 
{ char sname[namesize]; 


if (symname (sname )==0 ) 
{illname(); 
ke110)s 
return; 


} 
addg1lb(sname, MACRO, 0,macptr); 
while(ch()=="% ’ | ch()==9) 

gch(); 
while(putmac(gch()))3; 
if (macptr>=macmax ) 

error("macro table full"); 
} 


findmac (sname ) 
/* rewritten 6/19/82 
char *sname; 
{ if ((findglb(sname) !=0)& 
(cptr [ident ] ==MACRO ) ) 
{return((cptr [offset] &255)+ 
(cptr loffset+l] <<8)); 
} 


return 0; 


jrvz */ 


As a result of these changes, the compiler 
speed has more than doubled. I also en- 
larged the disk buffers from 128 bytes to 


512 bytes. That sped compilation up a 
further 20%, to about 220 lines/minute 
on my 2.5 MHz Z-80. 


Has anyone installed floating-point 
variables? Does anyone have a C inter- 
preter, that would let me debug my code 
quickly? (Note that Tiny-c accepts a dif- 
ferent language.) 

Keep the Small-C articles coming! 


Yours, 

James R. Van Zandt 
26 Shelton St. 
Nashua, NH 03062 


Editor’s Note: Readers who are following 
the developments in Small-C, which origi- 
nated with Ron Cain’s Small-C compiler, 
should keep a close eye on DDJ in the 
coming months. We have a number of 
exciting articles and listings scheduled. 


Dd 


A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE & WORD data 
Disassembles object code up to 64K long! 
Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line HELP 
Calculations in ANY Number Base! 
Flexible file and 1/0 control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user 
updates. Runs ina Z80 CPU under CP/M 
Is normally supplied on SSSD 8 diskette 
Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA, 90056 
(213) 649-3575 


* CP/M is a Trademark of Digital Research, Inc. 
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IBM Personal Computer 


Do you use your computer? Or does your computer “use” you? Face it, if you re using floppies, your time is being wasted. 
Because a floppy is an inefficient random access storage device. Each time the processor wants to transfer data, it has to wait 
an eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisk, quick. It’s a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive. Without all the waiting. Do everything you'd do on a floppy or hard disk, with no modifications to your 
software or hardware. Two board sizes are available: 512K and 1 Megabyte. (the highest density microcomputer memory 
board in the world) And you can put up to 8 megabytes in a system by adding more storage boards. 

What do you need to use it? Just an S-100 system with CP/M 2.2. Or a TRS-80 Model 2 system with 
CP/M 2.2. Or an IBM Personal Computer. That's it. No special processors, DMA, I/O, or disk controllers are required. Plug it in 
and run the installation program, and you're on your way. Fast! Even better, we supply full source code to the driver software, in 
case you d like to do your own interfacing. 

Best of all, the SemiDisk’s price won't warp your wallet. Compare specs, cost/megabyte, storage capacity, and 
compatibility with the competition. You'll see that the SemiDisk is a disk emulator truly worthy of the name. SemiDisk has 
battery-backup capability, too. 

Consider our limited warranty: A full year, covering all parts and labor. Consider our liberal 15 day return policy. Price? 
$1995 for 512K byte SemiDisk, $2995 for 1 Megabyte SemiDisk. Bothfrom stock. $10.00 for manual. VISA, Mastercard, COD 
orders accepted. Dealer and OEM inquiries welcomed. (Specify system type and disk format when ordering.) 


Someday, you'll get a SemiDisk. 


Cintil then, you'll just have to......... wait. \) 
\ 
SemiDisk aS 


P.O. Box GG 


SYSTEMS Beaverton, OR 97075 (503)-642-3 1 00 
Call (503)-646-5510 for CBBS®/NW, a Semi-Disk-equipped computer bulletin board. N 0 WA | T | G 


SemiDisk trademark of SemiDisk Systems; TRS-80 trademark of Radio Shack 
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ADVENTURE 


The classic computer game, complete as implemented on 
the DEC-10. Explore the colossal caves—over a hundred 
rooms! Cast magic! Steal treasures! Run from dragons! 
Absolutely the fastest running version available for a 
microcomputer. $29.95 


OTHELLO 


This ancient game of tactical skill is played on an 8 by 8 
board. Object is to occupy the most squares at the end of 
the game by bracketing and “flipping” your opponent's 


men. Nine levels of play. $24.95 


GOMOKU 


Playing on a 15 by 15 board, the first player to get five in 
a row wins this exciting game of tactical skill. Complete 
I/O features include game display, take back, autoplay, 
referee, set-up and problem modes. Can do a 5-ply 
search in tournament time. $24.95 


Indicate disk size and system 
type. 8” shipped single density; } 
for 51/4” indicate soft or hard sec- MasterCard | 
tor, single or double density. | 
Add $2 shipping on all orders. 
California residents add 6% tax. 








«| CALIFORNIA DIGITAL ENGINEERING 
PO. BOX 526 * HOLLYWOOD, CA 90028 
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AUTOMATA DESIGN ASSOCIATES 


’ 1570 Arran Way 


Dresher, PA 19025 (215) 646-4894 
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The new Epson HX-20 is no ordinary computer. 
Not by a long shot. It’s the world’s only Notebook 
Computer with the power of a desktop and the 
portability of a handheld. 

So you can do serious computing, data proces- 
sing, even word processing. Anytime. Anywhere. 

To start with the HX-20 has 16K RAM (option- 
ally expandable to 32K), 32K ROM (optionally 
expandable to 64K), RS-232C and serial inter- 
faces, a full-size ASCII keyboard, a built-in micro- 
printer with dot addressable graphics, a scrollable 
LCD screen, five programmable function keys, 
and ... well, that’s just the beginning. 

The HX-20 is small enough to tuck inside a 
briefcase or under your arm. It runs on internal 
power for 50-plus hours and recharges in eight. It 
lets you interface with peripherals like MX Series 
printers, the CX-20 battery-powered acoustic 
coupler, a barcode reader, and audio cassette. 
And you can even get it with options like a micro- 





: Try this with ordinary 








computer. 


cassette drive, ROM cartridge, floppy disk and 
display controller. 

Now, prepare to have your mind boggled by 
one more feature: the price. The Epson HX-20 
Portable Notebook Computer retails for less than 
$800. That’s right — less. Which means it’s just 
right for students, businesspeople, kids — any- 


body who's looking for an affordable way into 


serious computing. 

Powerful. Portable. Affordable. The HX-20 is 
just what you'd expect 
from Epson. 

The extraordinary. 


EPSON 


EPSON AMERICA, INC. 


COMPUTER PRODUCTS DIVISION 








3415 Kashiwa Street + Torrance, California 90505 + (213) 539-9140 
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Ultra FAST BASIC Compiler 


CB80"" Compiler System's new native code Basic 
compiler, offers maximum speed and flexibility Tamercsy-teiare 
applications to solve today’s business fe)ge)@)(-108 


CBASIC™ compatible: As an addition to the CBASIC 
family, CB80 has all the features of CBASIC (14 digit 
accuracy, long variable names, stream and record I/O, 
multiple line functions) plus these extras: 


¢ Relocatable machine code * 32K byte strings 

¢ Nested IF statements > ON ERROR GOTO 

¢ Variable type declarations * CALL statement 

with parameters * EXTERNAL and PUBLIC functions 
ois Wover-|Bz-lat-le)(=cmiamielaceiielacmowallelar-lsleisacigie 

labels © Record LOCK and UNLOCK 


Expand your versatility. CB80 includes our LK80™ 
linker. It allows you to create programs in separate 
modules and easily combine them. Powerful CHAINING 
capabilities, multiple library scanning, and easy linkage al 
to assembly routines, are all part of LK80. 





CP/M® and MP/M II™ compatible: CB80 supports we 
the popular CP/M and MP/M II operating systems. ae 
CB80's record LOCK and UNLOCK, combined with Saas fs 


its superior speed makes it a natural for multiuser sa 
syaWwdige)alaatsialtcy | 


Increase productivity and profits. Faster execution uf 
exerci RCN icc am talcelere aleleialaremant-bdiunly4-cm elelmerelin) ole a 
resources — an essential user feature. Coupled with 4 
reduced programming time, CB80 definitely improves | 
your bottom line benefits. 


For your free CB80 brochure and licensing details, 
call us at (408) 649-3896, or write us today. 


DIGITAL RESEARCH’ 


PO. Box 579, Pacific Grove, California 93950 


Europe: Vector, Int'l, Leuven, Belgium, 32(16)202496 
Far East: Microsoftware Assoc., Tokyo, Japan, 03-403-2120 
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